>perl -MCarp::Always -we"sub f { print undef } f()"
Use of uninitialized value in print at -e line 1
        main::f() called at -e line 1