## Since we use strict we have to declare the names of our package
## variables with our
use strict;

package Smith;

our $John = 1;

package Jones;

our $John = 2;

# prints 2, because package Jones is the current package;
print $John, "\n";  

# prints 1 because we explicitly name the other package's var
print $Smith::John, "\n";  

package main;

print $John, "\n";  # Compile time error because there's no $main::John