Help for this page
while (<IN>) { print OUT; }
while (<$inFH>) { print $outFH; }
while (<$inFH>) { print $outFH $_; }