use strict;
use warnings;
use Device::USB;

my $usb = Device::USB->new();

foreach my $dev ($usb->find_devices())
  {
  printf "Device: %04X:%04X\n", $dev->idVendor(), $dev->idProduct();
  }