{
    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;
    }
}

##</code><code>##

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