sub grabInt16
{
     my $TwoBytes = 2;
     my $Int16 = 's';
     read(IN, my $record, $TwoBytes);
     $record = reverse $record;
     my $value = unpack($Int16, $record);
     return $value;
}