package one;
my $x= "hi";
package two;
print "$x\n";
# prints "hi"

##</code><code>##

package one;
our $x= "hi";
use vars qw($y);
$y= "lo";
package two;
print "$one::x $one::y\n"; # prints "hi lo"
print "$x\n"; # prints "hi"
print "$y\n"; # prints nothing
# and would give an error under C<use strict>