package Singleton;
...
my $singleton = undef;

sub new {
    my $pkg = shift;
    $singleton ||= bless {}, $pkg;
}
...
my $frob = new Singleton();