open my $fh, '<', $file or die "Can't read '$file': $!\n";
while((my $len = read $fh, my $record, 32) == 32) {
    # do something with $record
    ...
    (read $fh, my $junk, 2) == 2 or last;
}