Select Code to Download

sub get {
  my($self,$attr) = @_;
...
  
  return $return_val;
}

if($attr =~ m/\A\w+\z/) {
  $return_val = ${$attr}{refaddr $self};
}