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