Select Code to Download

#!/usr/bin/perl -w
use Win32::API;
...
    print Dumper(\%h);
} while ($h{NextEntryOffset});

typedef struct _SYSTEM_PROCESS_INFORMATION 
{
...
 IO_COUNTERS IoCounters;
 SYSTEM_THREAD Threads[0];
} SYSTEM_PROCESS_INFORMATION, *PSYSTEM_PROCESS_INFORMATION;