Help for this page
package Parent; ... } 1;
package Child; ... } 1;
use strict; use warnings; ... print $p->color(), "\n"; print $c->color(), ", ", $c->shape(), "\n";