or download this
$ 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