Try::Tiny 

try {
    do_something();
}
catch {
    die "Failed in do_something: $_";
}