Select Code to Download

return $someval;
print $someval;

sub a {
   print $variable;
...
sub b {
    $variable;
   }

sub a {
   return sprintf("%s", $_[0]);
 }