use lib '.';
use Daughter;
use Son;
use Data::Dumper;

my $daughter = Daughter->new()->status;
print Dumper($daughter);
my $son = Son->new()->set;
print Dumper($son);
$daughter->other;
print Dumper($daughter);