Select Code to Download

sub process_file
{
  my ($original, $final) = @_;
...
  close $original_fh;
  close $final_fh;
}