use Error qw( :try );

sub important_function { 
    try {
        something_dangerous();
    } catch Error::Simple with {
        return 0;
    };
    return 1;
}

##</code><code>##

use Error qw( :try );

sub leaky_function {
    my $foo = 7;
    try {
        # do something here
        try {
            $foo++;
        } catch Error::Simple with {
            # whatever
        };
    } catch Error::Simple with {
        # whatever
    };
}