Select Code to Download

sub new {
    my($proto, $fields) = @_;
...
    # make a copy of $fields.
    bless {%$fields}, $class;
}

my $singleton;
...

    return $singleton;
}

my $c1 = C->new( foo => 'bar' );
my $c2 = C->new( foo => 12345 );