perl -e'use warnings; print undef; print "done\n";'