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