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