windows-server-2003/admin/wmi/wbem/scripting/docsamples/perl/iswbemobjectset/item.pl

# The following sample enumerates all instances of the class
# Win32_LogicalDisk, and extract the the member with a specified 
# relative path.  

use Win32::OLE;
$objServices = Win32::OLE->GetObject('cim:root/cimv2');
$objEnum = $objServices->ExecQuery ('select * from Win32_LogicalDisk');
$objInstance = $objEnum->{'Win32_LogicalDisk="C:"'};

print "$objInstance->{Path_}->{DisplayName}\n";