use Exception::Class ('MyException');
eval {  # Pretend this says 'try'
    MyException->throw( error => 'I feel funny.';
};
if( UNIVERSAL::isa( $@, 'MyException' ) ) {  # Pretend this says 'catch MyException'
    warn $@->error, "\n, $@->trace->as_string, "\n";
     warn join ' ',  $@->euid, $@->egid, $@->uid, $@->gid, $@->pid, $@->time;

     exit;
}