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);