package Dog;
our $name="Odie";
our $gender = "male";
@treats = ( "lasaggnah", "3 cheese pizzas", "taco shells", "BRAAPP" );
sub play{
    my $dogname = shift;
    print "$dogname catches a tennis ball.\n";
}

package Cat;
my $name = "Garmfield";
print "Treats are : @Dog::treats \n";
print "$name says hello to $Dog::name. \n" ;
print "$Dog::name is a $Dog::gender. \n" ;
print "$name prefers kicking $Dog::name.\n" ;
print "$Dog::name loves ",join (" , ", @Dog::treats) ,
    " but prefers $Dog::treats[0]\n" ;
Dog::play ($name);