Select Code to Download

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

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