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

1;

##</code><code>##

#!/usr/bin/perl -w

use Error qw(:try);
use MyErrors::SomeError;

try {
  throw MyErrors::SomeError('throwing SomeError exception');
} catch MyErrors::SomeError with {
  my $err = shift;
  print "caught it: $err->{'-text'}\n";
};