This doesn't work because of:

if(kill(0,$Kind_pid)) {
[download]

You are checking whether the child is alive. It is, so you go into this if block. However, both the parent and the child go into this block, whereas it is your intention to have only the parent get into this block, and have the child execute the else block. Change this line to:

if ($Kind_pid) {
[download]

and watch the dots march across the screen :).

If you are worried about not properly forking, you can always check for the child's existence (with kill 0) inside the parent's if block.

Update: Better yet, if you are worried about not forking properly, check for the definedness of the return value of fork:

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

CU
Robartes-