Rather than duplicating the whole parent class method, you can let it do most of the work:

my $singleton;

sub new { 
    my $proto = shift;

    if ( !defined $singleton ) { 
        $singleton = $proto->SUPER::new( @_ );
    }

    return $singleton;
}
[download]