use strict; use vars qw($test1 $test2); require ('inc.pl'); print "$test1\n$test2\n";