c:\test>\perl32\bin\perl -le"print $]; print kill 0, $_ for 3844, 4844"
5.008009
1
0