$ perl -we'undef $=; print $-'
Use of uninitialized value in undef operator at -e line 1.
0