1 #!/usr/bin/perl
2 
3 # Parse the International Standard Book Number from the back of this book
4 # (9781449393090). Install the Business::ISBN module from CPAN and use it
5 # to extract the group code and the publisher code from the number.
6 
7 use v5.24;
8 use warnings;
9 use strict;
10 use utf8;
11 use local::lib;
12 use Business::ISBN;
13 
14 my $isbn = Business::ISBN->new(shift @ARGV);
15 #print the group code or publisher code
16 printf("ISBN: %s, Group Code: %s, Publisher Code: %s\n", $isbn->as_string, $isbn->group_code, $isbn->publisher_code);