Help for this page

Select Code to Download

Select or download this

our $x = 1;
my $f = sub { $x };
...
    print $f->(), "\n";
}
print $f->(), "\n";