Select Code to Download

        } else {          ### parent
            $self->print( \*SENDMAIL );
            close SENDMAIL || die "error closing $p{Sendmail}: $! (exi
+t $?)\n";
            $return = 1;
        }

my $sent_ok= eval {
    $mail->send;
...
if( my $err= $@ ) {
    warn "Error while sending mail: '$err'";
};