Select Code to Download

my ($smtp) = Mail::Mailer->new("smtp", Server => "127.0.0.1");
$smtp->open({
...
});
print $smtp "body\n\n";
$smtp->close;