use strict;
package Fred;
our $name = "John";

package Main;
my $name = "Fred";
print $Fred::name;     # prints "John";
print $name;           # prints "Fred";