print eval{
    # werfe Exception der Klasse 'exa'
    $m->throw('exa',"Invalid!");
    99;
} || do{
    # catch instance for class 'exa'
    my $exa = $m->caught('exa');
    $exa->error, $exa->trace;
};