以下のサブルーチンが何やってるか意味不明です

sub is_tainted {
return ! eval {
join('', @_), kill 0;
1;
};
}

if(is_tainted($value))

などとして$valueが汚染されているかをチェックするらしい


join('', @_), kill 0;
が特に理解できない

kill 0でプロセスの状態がチェックできるのはわかったけど
いったいどのプロセスをチェックしてるんだ?
本当ならkill 0, xxxというふうにプロセスID指定しなきゃならんのでは?