Try::Tiny 

try {
    my $obj = Class->new();  # Class has DESTROY method
    die "error message";
}
catch {
    die "Failed with error: $_";
}