sub grabFloat
{
     my $FourBytes = 4;
     my $floatTemp = 'f';
     read(IN, my $record, $FourBytes);
     $record = reverse $record;
     my $value = unpack($floatTemp, $record);
     return $value;
}

##</code><code>##

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