package BigThing; sub new { my $class = shift; bless $self, $class;