my $box = shapes->new(shape => %box);
$box->print_shape(); # Do som real work