my %instances;
sub getInstance {
   my $class = shift;
   $instances{$class} ||= $class->new(@_);
   return $instances{$class};
}