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