use strict;

do 'test.pl';

print "$main::test1 $main::test2 $main::test3";

$main::test1 = 1;