sub new {
  my ($class,%args) = @_;
  my $new_object = $class->SUPER::new(%args);
  ....