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