Not an answer to your question but one way of looking at what is returned is to use Data::Dumper

For me, print Dumper $res; returns:

$VAR1 = bless( 
  {
    'Count' => undef,
    'Security_' => bless( 
      {
        'ImpersonationLevel' => 3,
        'AuthenticationLevel' => 6,
        'Privileges' => bless( 
          {
            'Count' => 1
          },
        'Win32::OLE'
        )
      },
    'Win32::OLE'
    )
  },
  'Win32::OLE'
);
[download]