Perl Business::UPC module