Select Code to Download

sub new {
    my ($class, %options) = @_;
...
    # validate options
    return bless \%options, $class;
}

my $obj = Bob::MyObject->new (option => 1, );

my $newObj = $obj->new (option => 1, );