Select Code to Download

sub printout {
  my ($lines, $_fh) = @_;
...
    print $fh "$line\n";
  }
} # End printout;