Select Code to Download

#!/usr/bin/perl

...
      die "Can't create output file `$files{Outfile}': $!\n";
    open my $ofh, '+>', $files{Outfile_B} or
      die "Can't create output file `$files{Outfile_B}': $!\n";