Select Code to Download

package Parent;

...
}

1;

package Child;

...
}

1;

use strict;
use warnings;
...

print $p->color(), "\n";
print $c->color(), ", ", $c->shape(), "\n";