% perl -wle 'sub foo { 43 for @_ } print 2 if defined foo()'
    Useless use of a constant in void context at -e line 1.