Select Code to Download

package MyErrors::SomeError;
use Error::Simple;
@ISA = qw(Error::Simple);

1;

#!/usr/bin/perl -w

...
  my $err = shift;
  print "caught it: $err->{'-text'}\n";
};