Select Code to Download

my %test_vals;
@test_vals{ @TEST_FLD } = unpack $TEST_REC_PACK, $rec;

my @TEST_FLD = ();
my $TEST_REC_PACK = q{}; 
...
   }
   return ($spec,@fld);
}

print 'fields    =  (',join(',',@TEST_FLD),")\n";
print "pack spec =  \"$TEST_REC_PACK\"\n";
...
while (($key,$val)=each(%test_vals)) {
   printf " %6s => %s\n",$key,$val;
}