Select Code to Download

$ perl -wE '
    sub meaning () { 42 }
    say meaning();
'
42

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

$ perl -wE '
    sub meaning ();
...
    sub meaning () { 42 }
'
42