Select Code to Download

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

package one;
our $x= "hi";
...
print "$x\n"; # prints "hi"
print "$y\n"; # prints nothing
# and would give an error under C<use strict>