AV* process_list(){

DWORD aProcesses[1024], cbNeeded, cProcesses;
    unsigned int i;
EnumProcesses( aProcesses, sizeof(aProcesses),  &cbNeeded );

cProcesses = cbNeeded / sizeof(DWORD);
AV* AV_procs = newAV();
    for ( i = 0; i < cProcesses; i++ )
    {
        if( aProcesses[i] != 0 )
        {
            av_push(AV_procs, newSViv( aProcesses[i] ) );
        }
    }
    return AV_procs;
}