Select Code to Download

local $/ = \(2*122);
binmode($fixedfile);
...
   my $timestamp = $fields[4];
   ...
}

   my %fields;
   @fields{qw(
...
      timestamp
      ...
   )} = unpack(...);

   my (
      ...
...
      $timestamp,
      ...
   ) = unpack(...);