Select Code to Download

$ perl -E 'say 1, foo; sub foo { 3  }'
1foo
...
13
$ perl -E 'say 1, foo(); sub foo { 3  }'
13

$ perl -E 'eval "sub foo { 3 }"; say 1, foo();'
13