$ perl -le 'foo; sub foo { print "foo" }'
$ perl -le '&foo; sub foo { print "foo" }'
foo