Select Code to Download

...

...
...
    open (my $fh, '>', $safe_file_name)
      or error_msg("Can't open $safe_file_name for writing: $!");