sub new {
   my $class = shift;
   ...
   return $class->SUPER::new(...);
}