my $ok = eval {
    $mailer->send(...);
    1;
};
if (! $ok) {
    my $err = $@;
    ...
};