{
  package KaPow;

  @ISA = 'Error::Simple';

  sub throw {
    warn "Holy thrown exceptions Batman!\n";
    ## must die with object
    die KaPow->new($_[1]);
  }
}

use Error ':try';

try {
  throw KaPow("The Riddler strikes again!");
} catch KaPow with {
  warn "this just in - $_[0]";
};


__output__

Holy thrown exceptions batman!
this just in - The Riddler strikes again! at pmsopw_284549.pl line 9.