windows上使用perl遇到的问题

fork在Windows上表示新建一个线程，拿到这个线程的id后，如何判断这个线程是否还在运行？
exec是创建一个进程，拿到这个进程的id后，如果判断这个进程是否还在运行？

下面是我写的两个函数，好像不太对，请高手给指点一下？

sub checkthddied {
    use POSIX ":sys_wait_h";
    my $pid = $_[0];
    my $rc = waitpid($pid, &WNOHANG);
    return $rc == $pid;
}
sub checkprodied {
    my $pid = $_[0];
    print "pid: $pid\n";
    if (1 == kill(0, $pid)) {
        return 1;
    }
    else {
        return 0;
    }
}

perldoc  perlthrtut
perldoc perlfork
看看有没有解答...

拜托，如果能找到，不会发贴麻烦大家了

就用waitpid就行啊

看http://search.cpan.org/~rpagitsch/Win32-Process-List-0.09/List.pm，这里写的很清楚，连用法都有的！