Select Code to Download

sub name {
   my $self = shift;
...
   ...
   $self->{name};
}

sub name {
   my $self = shift;
...
   ...
   $result;
}