$ perl -we 'my sub foo {}'
"my sub" not yet implemented at -e line 1.
$