$ perl -e'print 0' | perl -e'while ($line = <>) { print "\$line=<$line> \$line=<" . ($line ? "true" : "false") . "> defined=<" . (defined($line) ? "true" : "false") . ">\n"};' $line=<0> $line= defined=