sub new {
      my $class = shift;
      $class = ref($class) if ref($class);
      my $self = $class->SUPER::new(); # <--- randomly fails
      ...
      return $self;
    }