Select Code to Download

sub write_hits {
  open (HITSW, "+< $_[0]");
...

my $hits = &read_hits("hits");
print "$hits visitors";