use Device::USB; my $usb = Device::USB->new; my $dev =$usb->find_device( 0x03eb, 0x204f ); $dev->open(); printf "Device: %04X:%04X\n", $dev->idVendor(), $dev->idProduct();