# inc.pl use vars qw($foo); $foo = "hello"; 1; #### # t.pl use strict; use vars qw($foo); do 'inc.pl'; print $foo, "\n";