Select Code to Download

my ($name, $address, $other, $info, $here) = getinfo();
...
...
}

...

my @vars;
sub routine_A
...
 print $address;
}