read $fh, $binrec, $1;
    if (defined $binrec) {
        print "test 1 |$binrec|\n";
        . . .
    }
    else {
        print 'test 2: undefined $binrec!\n';
    }