Select Code to Download

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

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

use strict;
use warnings;
...
  #print "wrapped_readline: <$sLine>\n";
  return $sLine;
}