Help for this page

Select Code to Download

Select or download this
print HITSW $read_hits++;

Select or download this

  my $read_hits = <HITSW>;
  seek HITSW, 0, 0;
  print HITSW $read_hits + 1;