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