Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
## tidy up
close $fh || die "Failed to close $second : $!";
untie %hsh;

#!/usr/bin/perl
use strict;
use warnings;
...
  }
}
close $fh || die "Failed to close $first : $!";