my $dict = Dict->new( file => $file) || do{
   # lots of code ;)
   # Vorsicht, wenn wir hier jetzt wieder eine EX werfen, wird $@ überschrieben!
};