Select Code to Download

use strict;

use Mail::Mailer;
...
}); 
print $mailer $body;
$mailer->close();

open(MAIL, "|/usr/lib/sendmail -oi -t -odq") || die "Can't open sendma
+il: $!";
print MAIL <<MESSAGE;
From: Your name <emailaddress\@blah.com>
...
this is easy.
MESSAGE
close(MAIL);