#!/perl/bin/perl

# クロージャのデモ

sub gen_func {
    my ($val) = @_;
    return sub {  return $val++; }
}

$a = gen_func(10);
$b = gen_func(0);

print &$a, "\n";
print &$a, "\n";
print &$b, "\n";
print &$a, "\n";
print &$b, "\n";