Select Code to Download

   sub new {
      my $proto = shift;
      my $class = ref($proto) || $proto;
...
      # do other stuff here for the child object...
      return $self;
   }

   sub reset {
      my $self = shift;
      my $class = ref($self) || $self;
...
      
      return $self;
   }