# $RECORDSIZE is the length of a record, in bytes.
   # $TEMPLATE is teh unpack template for the record
   # FILE is the file to read from
   # @FIELDS is an array, one element per field
   until ( eof(FILE) ) {
      read(FILE, $record, $RECORDSIZE) == $RECORDSIZE
         or die "short read\n";
      @FIELDS = unpack($TEMPLATE, $record);
   }

##</code><code>##

   #!perl -w
   use strict;
   my $record = "         none          lt2dpmnt";
   print "\$record = [$record]\n";
   my @FIELDS = unpack('a9a4a10a8', $record);
   foreach (@FIELDS) {
      print "field=[$_]\n";
   }

##</code><code>##

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