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