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