my $usb = Device::USB->new(); my $dev = $usb->find_device( VENDOR, PRODUCT ); print Dumper $dev;