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