Select Code to Download

sub open_file
{
        my ($mode, $file) = @_;
        open my $fh, $mode, $file or croak("Could not open '$file': $!
+");
        return $fh;
}