while (<IN>)
{
    print OUT;
}

##</code><code>##

while (<$inFH>)
{
    print $outFH;
}

##</code><code>##

while (<$inFH>)
{
    print $outFH $_;
}