Select Code to Download

my $format = Unpack::Format->new( spec =>[
   status => 'n',   #   0
...

# pure OO style
@test-vals{$format->fieldnames) = unpack $format->templatestr, $rec;

#!/usr/bin/perl

...
foreach (@$format) {
   printf " %6s => %s\n",$_, $test_vals{$_};
}