#!/usr/bin/perl -w

    use strict;

    open FILE, 'file.bin' or die "Couldn't open file: $!\n";
    binmode FILE;

    my $record = 1;
    my $buffer = '';


    while ( read( FILE, $buffer, 4 ) ) {

        my $record_length = unpack 'N', $buffer;
        my $num_fields = $record_length / 4;

        printf "Record %d. Number of fields = %d\n", $record, $num_fields;

        for (1 .. $num_fields ) {
            read( FILE, $buffer, 4 );

            my $temperature = unpack 'f', $buffer;

            # Or if the above gives the wrong result try this:
            #my $temperature = unpack 'f', reverse $buffer;

            print "\t", $temperature, "\n";
        }

        # Read but ignore record trailer.
        read( FILE, $buffer, 4 );
 
        print "\n";
        $record++;
    }

    __END__