Not before 5.14 you can’t 

eval {
    my $obj = Class->new()
    do_something($obj);
};
if(my $error = $@) {
    cleanup_routine();
    die "Error in do_something(): $error";
}