use Barcode::Cuecat;
my $bc = new Barcode::Cuecat();
while (<>) {
$bc->scan($_);
print "Type = ", $bc->type(), "\n";
print "Code = ", $bc->code(), "\n";
print "S/N = ", $bc->serial(), "\n";
print " ------------\n"
}
use Barcode::Cuecat;
my $bc = new Barcode::Cuecat();
while (<>) {
$bc->scan($_);
print "Type = ", $bc->type(), "\n";
print "Code = ", $bc->code(), "\n";
print "S/N = ", $bc->serial(), "\n";
print " ------------\n"
}