my $obj_count = 0;
sub new {
  my $class=shift;
  my %params=@_;
  my $self={};
  $self->{$_}=$params{$_} foreach keys(%params);
  bless($self, $class);
  $obj_count++;
  return $self;
}

sub get_count {
  return $obj_count;
}