Select Code to Download

#!/usr/local/bin/perl5_8
use strict;
...
#do other stuff using these called-in variables
#without having to declare "my $one" and "my $two" again
$fred = $one . $two;    #or some such silliness

sub call_variables {
#pick up a string I've passed from previous program via 'spec_vars'
my $spec_vars = param('spec_vars');
   return (split /~/, $spec_vars)[0,1,2,3,4 .. 25];
}

$one = $spec_vars[0];
$two = $spec_vars[1];
etc.