$ perl -wE 'sub say {print "txt\n";}; &say("hello");'
  txt
  $ perl -wE 'sub say {print "txt\n";}; say("hello");'
  hello