#!/usr/bin/perl use strict; our $foo = 'bar'; # package variale main::foo require 'foo.pl'; require 'bar.pl'; print __FILE__,' ',__LINE__,' ',__PACKAGE__,":: \$foo is '$foo'\n";