Select Code to Download

   # $RECORDSIZE is the length of a record, in bytes.
   # $TEMPLATE is teh unpack template for the record
...
         or die "short read\n";
      @FIELDS = unpack($TEMPLATE, $record);
   }

   #!perl -w
   use strict;
...
   foreach (@FIELDS) {
      print "field=[$_]\n";
   }

   C:\DOCUME~1\hmerrill.000\TEST_P~1>test_unpack.pl
   $record = [         none          lt2dpmnt]
...
   field=[none]
   field=[          ]
   field=[lt2dpmnt]