1 use Device::USB;
  2 
  3   $usb = Device::USB->new();
  4   $dev = $usb->find_device('0403', '6001');
  5   printf("Device: %04X:%04X\n", $dev->idVendor(), $dev->idProduct());
  6   $dev->open();
  7   print "Manufactured by: $dev->manufacturer()\n";
  8   print "Product: $dev->product()\n";