$mailer = Mail::Mailer->new;
$mailer->open(\%headers);
print $mailer $body;
$mailer->close;