Select Code to Download

use strict;
use Mail::Mailer;
...
    or die "Can't open: $!\n";
print $mailer $body;
$mailer->close();

open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")
                    or die "Can't fork for sendmail: $!\n";
...
Body of the message goes here, in as many lines as you like.
EOF
close(SENDMAIL)     or warn "sendmail didn't close nicely";