# test1.pl
use strict;
BEGIN { require 'test2.pl' };
print $x;

# test2.pl
use strict;
use vars '$x';
$x = "this is it\n";