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

    $sender->Open({
        smtp => 'mail',
        from => "$from",
        fake_from => "$from",
        to => "nobody\@mydomain.com",
        bcc => "$to",
        encoding => "quoted-printable",
        subject => "$subject",
        ctype => "$htype",
        }) || die "Sender error: $sender, $Mail::Sender::Error!\n";



    # body of email
    $sender->SendEnc(@body) || die "Sender error: $sender, $Mail::Send
+er::Error!\n";

    # send email
    $sender->Close || die "Sender error: $sender, $Mail::Sender::Error
+!\n";
}
[download]

Neil Watson
watson-wilson.ca