{
    my %dispatch_error;

    BEGIN {
        %dispatch_error = (
            TypeError => sub { ... handle TypeError exceptions ... },
            RangeError => sub { ... handle RangeError exceptions ... },
            ...,
            '' => sub { ... handle any unspecified exceptions ... },
        );
    }

    sub handle_error {
        my ($e) = @_;

        my $error_type = ref $e;
        $error_type = '' unless exists $dispatch_error{$error_type};
        $dispatch_error{$error_type}->($e);

        return;
    }
}

try {
    myroutine();
}
catch {
    handle_error($_);
};

##</code><code>##

# not quite Perl
sub work
{
    # Handle a few exceptions
    my $result1;
    try {
        $result1=doSomeMath();
    } catch (DivByZeroException) {
        $result1="div by 0"; 
    } catch (NotANumberException) {
        $result="not a number";
    } # no explicit handler for other exceptions, so re-throw

    # Handle a different set of exceptions
    my $result2;
    try {
        $result2=doSomeMoreMath();
    } catch (DivByZeroException) {
        $result2="div by 0";
    } # no check for NaN, will be re-thrown like any other Exception here


    # Handle all possible exceptions, with a special handling for one exception
    try {
        writeToFile($result1,$result2);
    } catch (IOException) {
        say "oopsie - I/O problem";
    } catch {
        say "something else went wrong";
    }
}