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


##</code><code>##

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