sub new {
      my $proto = shift;
      my $class = ref($proto) || $proto;
      my $self  = $class->SUPER::new(@_);
      bless $self, $class;
      # do other stuff here for the child object...
      return $self;
   }