Mega Code Archive

 

Categories / Perl / Subroutine

 

A closure is an anonymous subroutine

my $name="Tommy"; {   my $name = "Tom";       my $age = 6;     $ref = sub{ return "$name is $age.\n"; } } print "$name is back\n"; print &{$ref};