my $shared_data = {};
my $father = Father->new($shared_data);
my $d = $father->new_daughter();
...