#!/usr/bin/perl

use strict;
use warnings;
use Device::USB;
my $VENDOR = 1027;
my $PRODUCT = 63104;
my $usb = Device::USB->new();
my $dev = $usb->find_device( $VENDOR, $PRODUCT );

printf "Device: %04X:%04X\n", $dev->idVendor(), $dev->idProduct();
$dev->open();
print "Manufactured by ", $dev->manufacturer(), "\n",
          " Product: ", $dev->product(), "\n";
exit;