sub new {
    my $class = shift @_;
    my $self = { @_ };
    bless $self, $class;
    return $self;
}