Select Code to Download

use 5.010;
sub f {
...
__END__
CODE(0x18cede8)
CODE(0x18cede8)

use 5.010;
sub f {
...
__END__
CODE(0x1d5cde8)
CODE(0x1d5cf98)

perl -MO=Concise,f -e 'sub f { my $x = shift; sub () { $x } };'
main::f:
...
6              <0> pushmark sRM ->7
7              <$> anoncode[CV ""] lRM ->8
-e syntax OK