use vars qw{$x};
print $x, "\n";  #10