use strict;
use warnings;

require "env.pl";
foreach my $file("env.pl","env1.pl")
{
	$main::var="default";
	require "${file}";
	print "\nIn $file var is : $main::var\n";
}

##</code><code>##

$var="env";
1;

##</code><code>##

$var="env1";
1;

##</code><code>##

In env var is : default

In env1 var is : env1

##</code><code>##

require "env.pl"