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