test 1 ||
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.7/myTool.pm line 316.
test 1 ||
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.7/myTool.pm line 316.

##</code><code>##

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