read $fh, $binrec, $l ;     
print "test 1 |$binrec|\n" ;
if ( $binrec ) { # this is line 316
     print "test 2\n" ; 
     ...
}