Select Code to Download

$ perl -lwe 'my $code = \&{print "foo"}'
foo
$ perl -lwe 'my $code = \&{print "foo"}; $code->()'
foo
Undefined subroutine &main::1 called at -e line 1.