if ($OS eq 'VMS') {
  $CRLF = "\n";
} elsif ($EBCDIC) {
  $CRLF= "\r\n";
} else {
  $CRLF = "\015\012";
}

##</code><code>##

if ($OS eq 'VMS') {
  $CRLF = "\n";
} elsif ($ANCIENT_MACOS) {
# $CRLF = "\015\012";
  $CRLF = "\n\r"; # Same thing
} else {
  $CRLF= "\r\n";
}