Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. 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};