Select Code to Download

    my %default = %default_values;  # shallow copy
    $default{ AUTHOR } =
...
    my $self = ref($class) ? bless( \%default, ref($class) )
                           : bless( \%default, $class );

my $self = bless deep_copy( \%default_values ), $class;