if ($OS eq 'VMS') {
  # VMS web servers translate this to CR+LF
  $CRLF = "\n";
} elsif ("\r\n" eq "\012\015") {
  # Old Macs get CR and LF backward
  $CRLF= "\n\r";
} else {
  # This works on any sane system
  # whether EBCDIC or ASCII or other
  $CRLF= "\r\n";
}