Perl : メール処理

use Mail::Mailer;
my $mailer = Mail::Mailer->new('qmail');

$mailer->open({
    From => $from,
    To => $to,
    Subject => $subject,
    }
    ) or die("Can't open $!");

print $mailer $body;
$mailer->close;