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