Except that this doesn't handle saying to filehandles properly:

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