my ($smtp) = Mail::Mailer->new("smtp", Server => "127.0.0.1");
$smtp->open({
    'To'            =>  $toaddress,
    'From'          =>  $fromaddress,
    'Subject'       =>  "subject",
});
print $smtp "body\n\n";
$smtp->close;