use strict;
use warnings;
use Parent;
use Child;

my $p = new Parent(color => 'green');
my $c = new Child(shape => 'round', color => 'red');

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