open (MAIL,"| /usr/sbin/sendmail -t");
    print MAIL "To: $to\n";
    print MAIL "From: $fromaddr\n";
    print MAIL "Subject: $subject\n\n";
    print MAIL "$message";
    print MAIL "\n.\n";
 close(MAIL);