my $child = Child->new; print $child->who_am_i;