if ( my $e = MyException->caught ) { ... } elsif ($@) { die $@; }