package MyError::SomeError; use Error; @ISA = qw/ Error::Simple /; 1;