eval {
    my $mail = new Mail::Mailer ('smtp', Server=>$SERVER);
    $mail->open({    From=>$from,
            To=>$to,
            Subject=>$subject,
        }) or die ("Can't send email headers: $!\n");
    print $mail $body;
    $mail->close();
};