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