Help for this page
use strict; use warnings; ... my $F=f(); my $G=g(); print $F->(),$G->(),"," for 1..4;
sub f { $x; sub { $x++ }}
www.com | www.net | www.org
No recent polls found