sub new {
    my $class  = shift;
    my %params = ( name    => 'John',
                    surname => 'Doe',
                  );
    my %args   = (%params, @_); # Overwrite the defaults
    bless \%args, $class
}