$sender = new Mail::Sender;

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

    # body of email.
    $sender->SendEnc(@body) or usage(), die "Sender error: $sender, $Mail::Sender::Error!\n";
    
    # send email
    $sender->Close or usage(), die "Sender error: $sender, $Mail::Sender::Error!\n";