text: 
  use Win32::OLE;
  use Win32::OLE::Enum;
  $services = Win32::OLE->GetObject('winmgmts:');
  
  $services->{Security_}->{ImpersonationLevel} = 3;
  
  $cls = $services->Get("Win32_process");
  
  $str = $cls->{Path_}->{Path};
  #print "class: $str\n";
  
  $WScript->Echo("class: $str\n");
  
  
  