Select Code to Download

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

sub lambda {
    my $f = $_[1];
...
        }
    }
}