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