eval { Some::Module::send_mail() };
if ($@) {
    (my $error = $@) =~ s/ at .* line \d+$//;
    die $error;
}