Select Code to Download

#!/usr/bin/perl

...

my $rex = Animal::Dog->new();
print Dumper($rex);

package Animal;

...
} 

1;

package Animal::Dog;
use base "Animal";
...
} 

1;

$VAR1 = bless( {
                 'domesticated' => 1,
                 'need_oxygen' => 1
               }, 'Animal::Dog' );