Help for this page
if(kill(0,$Kind_pid)) {
if ($Kind_pid) {
die "Could not fork: $!\n" unless (defined(my $Kind_pid = fork() ));