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