$ perl -le '1 while ($l = <>); print "undef!" unless defined $l' < /dev/null
undef!