sub new {
    my ($class, %args) = @_;
    return bless {
      loglevel => 0,
      die_randomly => 0,
      %args,
    }, $class;
  }