$CRLF = "\015\012";
$message =~ s/\n/$CRLF/gs;