my $message = join ('', @_);
  $message .= "\n" unless $message =~ /\n$/s;
  $message =~ s/\n/\r\n/sg;
  print $tmpfh $message; close $tmpfh;