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

##</code><code>##

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