Select Code to Download

open(IN, $oneper) or die "Can't open file $oneper for reading: $!\n";
open(INDEX, ">:raw","$file.idx") or die "Can't open $file.idx for read
+/write: $!\n";
...
syswrite INDEX, pack('N', tell INDEX), 4;
}
close INDEX;

open INDEX, "<:raw","$index" or die "Can't open $index for reading: $!
+";
my $len = -s( INDEX );
...
  my $line = <FILE>;
  print "found line $line\n";
}