eval { $coderef->() };
    if ( exception 'IOException' ) {
        ... handle IOException ...
    } elsif ( exception 'OtherException' ) {
       ... handle OtherException ...
    } elsif ( exception ) {
       ... handle all other exceptions ...
    } else {
        ... we lived ...
    };