10 sysopen(FILE,$fname,O_RDONLY) || die "Couldn't open $fname\n";
15 for ( ; $min != $max ; ) {
16 print "min=$min max=$max\n";
17 $try = int(($min + $max) / 2) + 1;
18 sysseek(FILE, $try, SEEK_SET);
19 $x = sysread(FILE, $b, 1);
29 print "file is $try long\n";