$main::x = 10;
print $main::x, "\n";  #10