$ perl -wle'
foo(23);
sub foo() { print "foo(@_)" }
'
main::foo() called too early to check prototype at -e line 2.
foo(23)
$ perl -le'
foo(23);
sub foo() { print "foo(@_)" }
'
foo(23)