$mailer = Mail::Mailer->new("mail");
   $mailer->open({From=>$from_address,
                  To=>$to_address,
                  Subject=>$subject,
                  })
            or die "Can't open: $!\n";
   print $mailer @body;
   $mailer->close();