sub new {
    my ($class,%args) = @_;
    my $self = \%args;
    bless $self, ref($class)||$class;
};