@Error::ISA = qw//; # "base class" for errors
@BadInput::ISA = qw/Error/;