Select Code to Download

#this filename is test.pl
use strict ;
...
my $a ;
require "set_a.pl"
print "a is $a\n" ;

#this filename is set_a.pl
$a=1 ;