my $pid = open(my $child, "-|") // die "Fork failed: $!";