Help for this page

Select Code to Download


  1. or download this
    my $c = 0;
sub f {print ++ $c, "\n";}
my @f = (f) x 3;
__END__
1