Select Code to Download

  my $fh ;
  open ($fh,">$file") ; binmode($fh) if $unicode ;
  print $fh $data ;
  close ($fh) ;

  my $fh ;
  open ($fh,">$file")  or dir "Failed to open: '$file' for write: $!";
  binmode($fh) if $unicode ;
  print $fh $data      or die "Failed to write to: '$file': $!";
  close ($fh)          or warn "Failed to close: '$file': $!";