use SomeModule;
my $foo = SomeModule->new;
eval { $foo->die_die_die };
if ($@) {
    print "There was a problem, but we didn't die: $@";
}
else {
    print "Not a problem.";
}