die "Could not fork: $!\n" unless (defined(my $Kind_pid = fork() ));