Select Code to Download

#!/usr/bin/env perl
...
     $e = Exception::Class->caught();
     ref $e ? $e->rethrow : die $e; 
  }

perl "exception-class-test.pl"
Illegal division by zero

I feel funny