$pid = 952;
# 952 is a running job pid
use threads;
use threads::shared;
use Win32::API;
Win32::API->Import( 'Kernel32', q[ DWORD GetLastError( ) ] );
Win32::API->Import( 'Kernel32', 
     q[ HANDLE  CreateToolhelp32Snapshot( DWORD dwFlags,  DWORD th32ProcessID ) ] );
$hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, $pid);      
print "hProcessSnap = $hProcessSnap \n";