Select Code to Download

$ perl -e 'sub say { print @_, "\n" } say STDOUT "Hi"'
Can't locate object method "say" via package "IO::Handle" at -e line 1