Select Code to Download

use File::Slurp qw(write_file);

...
    write_file($FH,  $ustr)
      or warn "Failed write_file";
}