view release on metacpan or  search on metacpan

t/02-unpack.t.dis  view on Meta::CPAN

use strict;
use warnings;
use feature ":all";
use Data::JPack qw<jpack_decode_file>;

my $data=jpack_decode_file @ARGV;
while($data){
say unpack "H*", substr $data, 0, 16,"";
}