function socketmail($server, $to, $from, $subject, $message) {
    $connect = fsockopen ($server, 25, $errno, $errstr, 30);
    fputs($connect, "HELO localhost\r\n");
    fputs($connect, "MAIL FROM: $from\n");
    fputs($connect, "RCPT TO: $to\n");
    fputs($connect, "DATA\r\n");
    fputs($connect, "Content-Type: text/plain; charset=iso-8859-1\n");
    fputs($connect, "To: $to\n");
    fputs($connect, "Subject: $subject\n");
    fputs($connect, "\n\n");
    fputs($connect, stripslashes($message)." \r\n");
    fputs($connect, ".\r\n");
    fputs($connect, "RSET\r\n");
}