use strict;

no warnings;


#no strict "vars";  # option1
our $x;        # option2

{
    package one;
    $x="one";
    print $x;
}

{
    package two;
    print $x;
}

__END__
1: one
2: oneone