$mailer = new Mail::Mailer 'smtp', Server=>'smtp.server.net';
select($mailer);
select($mailer->open(\%mail_header));
select($mailer->body);