Select Code to Download

my $code = sub { $x };   # $x is closed over

$ perl -MDevel::Peek -e'my $x; Dump(sub {1})'
$ perl -MDevel::Peek -e'my $x; Dump(sub {$x})'