Select Code to Download

eval {
    my $mail = new Mail::Mailer ('smtp', Server=>$SERVER);
...
    print $mail $body;
    $mail->close();
};