$ perl -wE '
    say meaning();
    sub meaning () { 42 }
'
main::meaning() called too early to check prototype at -e line 2.
42