package Dog;
our $name="Odie";

##</code><code>##

package Dog;
our $name = "Odie";
print "dog's name is '$name'\n";

package Cat;
$name = 'Garfield';
print "package var \$Cat::name is '$Cat::name'\n";
print "\$name is '$name'\n";
print "package var \$Dog::name is '$Dog::name'\n";
__END__
dog's name is 'Odie'
package var $Cat::name is ''
$name is 'Garfield'
package var $Dog::name is 'Garfield'