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