open(MAIL, "|mail $EMAIL");
        print MAIL "To: $EMAIL\n";
        print MAIL "From: $FROM\n";
        print MAIL "Subject: $MAILSUB\n";
        print MAIL "Content-Type: text/plain; charset=\"iso-8859-1\"";

        open(MESSAGE, "<", "$TMPFILE") or die "$!";
        print MAIL <MESSAGE>;
        close MESSAGE;
        close MAIL;