Help for this page
package MyModule::Errors; ... }; 1;
eval { somefunc() ); if( $@ =~ m[^MyModule::Error002] ) { ... };