I use Mail::Sender to do my bidding:

sub mailout {
    $sender = new Mail::Sender;

    $sender->Open({
        smtp => $smtp,
        skip_bad_recipients => 'true', 
        from => "foo\@bar.com",
        fake_from => $from,
        to => "subscribers\@bar.com",
        bcc => $to,
        encoding => "quoted-printable",
        subject => $subject,
        ctype => $htype, 
        headers => "Errors-To: errors@bar.com",
        }) or usage(),
        warn "Sender error: $sender, $Mail::Sender::Error!\n";

    # body of email. USE Send only for plain/text messages
    if ($htype eq "text"){
        $sender->Send(@body)or usage(),
        warn "Sender error: $sender, $Mail::Sender::Error!\n";
    }else{  
        $sender->SendEnc(@body) or usage(),
        warn "Sender error: $sender, $Mail::Sender::Error!\n";
    }

    # send email
    $sender->Close
    or usage(), warn "Sender error: $sender, $Mail::Sender::Error!\n";
}
[download]