As is the case, I was able to answer my own question with a bit more digging... There is an Win32 API for this called GetGuiResources. With a little help from Win32::API I was able to get the GDI objects and the User Objects as follows:

sub getGuiResources{
    my $hwnd = shift || 0;
    #$hwnd it the handle to the process
    my $dword = shift || 0;
    #$dword=0 for GDI Objects, $dword=1 for User Objects
    $GetGuiResources ||= new Win32::API("user32", "GetGuiResources", [
+'N','N'], 'N') || return undef;
    my $count = $GetGuiResources->Call($hwnd,$dword);
    return $count;
    }
[download]