>perl -e"sub bar; bar()"
Undefined subroutine &main::bar called at -e line 1.