pete, I've no intention to annoy you, but I'd appreciate it a lot if somebody could help me to find the error. I've updated the code, with your writetofile idea.

#!/usr/bin/env perl

use Exception::Class
      ( 'MyException' );

sub divbyz {
    my $z = 0;
    eval { my $result = ( 23 / $z ) }
        or MyException->throw( error => 'I feel funny.' );
}

sub writeit {
    eval { open my $FH, ">unwritable_file"  }   
        or MyException->throw( error => 'I feel bad.' );
}
  or MyException->throw( error => 'I feel bad.' );

# try
eval { 
        #divbyz();
        writeit();
    };  

# my $e;
# catch
if ( my $e = Exception::Class->caught('MyException') )
{
 warn $e->error, "\n", $e->trace->as_string, "\n";
     exit;
  }
  else
  {
     print "finally \n";
     $e = Exception::Class->caught();
     ref $e ? $e->rethrow : die $e; 
  }
[download]

So if I run this I come to the conclusion, that there is nothing wrong with the handling code. Dependent on which of this two subroutines you run, the flow takes an other conditional.

        divbyz();
        writeit();
[download]

divbyz(): Goes into the first if clause (catch)
writeit(): Goes into the last else clause (finally).
So how can I catch the exception caused by writeit()?
ben