>perl -e"eval 'use warnings; 1' or die $@; print undef;"

>perl -e"use warnings; print undef;"
Use of uninitialized value in print at -e line 1.