{ my $singleton;
sub new {
  if (! $singleton) {
    my $class=shift;
    $singleton = {@_};

    bless($singleton,$class);
  };
  return $singleton;    
};