use Mail::Mailer;

           $mailer->open(\%headers);

           print $mailer $body;

           $mailer->close;


##</code><code>##

$mailer = $query->param('Title');