$ perl -wE'
foo("bar");
sub foo() { 1; }
'
main::foo() called too early to check prototype at -e line 2.