#!/usr/bin/perl

use warnings;
use diagnostics;
use Device::USB;

$usb = Device::USB->new();
print "1\n";