I have this script that is used to send news letters to subscribers:

    $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::Erro
+r!\n";

    # body of email.
    $sender->SendEnc(@body) or usage(), die "Sender error: $sender, $M
+ail::Sender::Error!\n";
    
    # send email
    $sender->Close or usage(), die "Sender error: $sender, $Mail::Send
+er::Error!\n";
[download]

The subscriber list is broken into 80 recipients at a time. These are assigned to the $to variable. The problem occurs if there is any problem with one of the recipients. Although we try to ensure that all recipients are validated sometimes bad ones are missed. When that happens the smtp server sends an error back to the sender script causing it to exit before it is finished.

How can I make the script continue to the next recipient, with out exiting, should the smtp server return an error?