eval {
    &something_that_throws_exceptions
};
if ( $@ ) {
    &exception_handler
}

##</code><code>##

use Exception::Class::TCF;
try {
    &something_that_throws_exceptions
} catch 'Default' => \&exception_handler;