Help for this page
$ perl -le 'print $h++' 0 $ perl -le '0 and print "this will not be printed"' $
while ( <DATA>) { chomp; ... print; }