Select Code to Download

use Win32::OLE ();

...
      $device->{ Description }, $/,
      $device->{ Name        }, $/;
}

use Win32::OLE ();

...
      $dependant->{ Description }, $/,
      $dependant->{ Name        }, $/;
}