Select Code to Download

sub thatroutine(\$) { # do something to ${$_[0]} }

...
     my $namedvar;
     return $namedvar if thatroutine $namedvar;
}