use strict;

$\="\n";
use vars qw($x);
$x="main";
{

    print $x;
    package one;
    use vars qw($x);
    $x="one";
    print $x;
}

print $x;
__END__
main
one
main