SV * get_proc_name( int processID )
{
    char szProcessName[MAX_PATH] = {0};

    HANDLE hProcess = OpenProcess
                     ( PROCESS_QUERY_INFORMATION |
                     PROCESS_VM_READ,
                     FALSE, processID );


    if (NULL != hProcess )
    {
        HMODULE hMod;
        DWORD cbNeeded;

        if ( EnumProcessModules( hProcess, &hMod, sizeof(hMod), &cbNeeded) )
        {
            GetModuleBaseName( hProcess, hMod, szProcessName, MAX_PATH - 1);
        }
        else {
            szProcessName[0] = '#';
            szProcessName[1] = 0;
        }
    }
    else {
       szProcessName[0] = '*';
       szProcessName[1] = 0;
    }

    CloseHandle( hProcess );
    return newSVpv(szProcessName, 0);
}