use Business::ISSN qw(is_valid_checksum);

my $issn = '0742-4477';
print "Valid = " . is_valid_checksum($issn);