sub new {
      my $pkg = shift;
    my $self = bless {}, $pkg;