Exception Objects 

if(ref($@)  and  $@->isa('Exception::ICanHandle')) {
  # Do stuff
}