use strict;
use warnings;
BEGIN { package vars; *::x = \$::x }
$x = 5;
print $x;