Select Code to Download

           use Mail::Mailer;

...
           print $mailer $body;

           $mailer->close;

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