$ perl -e " foo(1); "
Undefined subroutine &main::foo called at -e line 1.