...
while(<fh>)  ## note this <fh> Oops
{
   print fh2 "$_\n";  ## note this fh2 Oops
}
...

##</code><code>##

...
while(<$fh>)  ## this is correct $fh
{
   print $fh2 "$_\n";  ## correct $fh2
}
...