Select Code to Download

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