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': $!";