if(kill(0,$Kind_pid)) {

##</code><code>##

if ($Kind_pid) {

##</code><code>##

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