#!/usr/bin/perl
use strict;

use lib '/app/tools/common/lib';
use Common::Util qw(normalize_upc upc_check_digit);

my $upc = $ARGV[0] or return usage("no upc passed");

my $check  = upc_check_digit($upc);
my $normal = normalize_upc($upc);
print "$upc\ncheck=$check\nnormalized=$normal\n\n";