package BigThing;
sub new {
      shift;
      bless $self, "BigThing";