open (MAIL,"| $SEND_MAIL");
   
    print MAIL "To: $to\n";
    print MAIL "From: $fromaddr\n";
    print MAIL "Reply-to: $replyaddr\n" if $replyaddr;
    print MAIL "Subject: extra $subject\n";
    print MAIL "Mime-Version: 1.0\n";
    print MAIL "Content-type: text/html; charset=\"iso-8859-1\"\n";
    print MAIL "X-Mailer: Perl Socket Mailer\n\n";
    print MAIL "$message";
    print MAIL "\n.\n";

    close(MAIL);

##</code><code>##

    print MAIL "Mime-Version: 1.0\n";
    print MAIL "Content-type: text/html; charset=\"iso-8859-1\"\n";

##</code><code>##

     X-me2uweb-MailScanner-SpamCheck: not spam, SpamAssassin (cached, score=0.986,
        required 5, BAYES_05 -1.11, HTML_MESSAGE 0.00,
        HTML_MISSING_CTYPE 2.10, HTML_SHORT_CENTER 0.00, NO_RELAYS -0.00)