Select Code to Download

sub set_name { 
    my $self = shift; 
...
    if (@_) { warn "Attempt to set value in get" }
    return $self->{name};
}