$ perl -we'sub f { print join "", undef } f("abc")'
Use of uninitialized value in join or string at -e line 1.

$ perl -MCarp::Always -we'sub f { print join "", undef } f("abc")'
Use of uninitialized value in join or string at -e line 1
        main::f('abc') called at -e line 1