package Dog;
our $name="Odie";
my $gender = "male";
@treats = ( "table scraps", "pork bone", "bacon twists", "rawhide" );
sub play{
	my $dogname = shift;
	print "$dogname catches a tennis ball.\n";
}

package Cat;

$name = "Garfield";
print "Treats are : @treats \n";
print "$name says hello to $Dog::name. \n" ;
print "$Dog::name is a $Dog::gender. \n" ;
print "$name prefers chicken flavored Temptations\n" ;
print "$Dog::name loves ",join (" , ", $Dog::treats) ,
	" but prefers $Dog::treats[0]\n" ;
Dog::play ($name);