package SingletonBase;
my $singleton;
sub new {
  my $class = shift;
  $singleton{ $class } ||= bless {}, $class;
}