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

##</code><code>##

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