#!/usr/local/bin/perl5_8
use strict;
use Exporter;
use myVars;     #this would be my own myVars.pm
use CGI;
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
my $CGI = CGI->new;

$|=1;
print $CGI->header;

my ($one, $two .... $twenty-five);
#call my variables that are always the same
&call_variables;

#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

##</code><code>##

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];
}

##</code><code>##

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