package Mold;
our $Singleton;

sub new {
  return $Singleton if defined $Singleton;
  my $class=shift;
  $Singleton=bless{},$class;
  $Singleton->init(@_);
  return $Singleton;
}  

...

1;