open(IDX, "> index") or die;
open(DAT, "< datafile") or die;
$pos = 0;
do {
  printf IDX "%8d" $pos;
  $line = <DAT>;
  $pos = tell(DAT);
} while (defined $line);
close(IDX);
close(DAT);