my $ok = eval { do_something(); 1 };

if (! $ok){
    handle_exception(); # possibly use contents of $@
}

##</code><code>##

handle_exception() if ! $ok;

##</code><code>##

croak "damned module failed with a confusing error\n" if ! $ok;