sub write_hits {
  open (HITSW, "+< $_[0]");
  my $read_hits = <HITSW>;
  print HITSW $read_hits++;
  close (HITSW);
}

sub read_hits {
  open (HITSR,"$_[0]");
  my $read_number = <HITSR>;
  close (HITSR);
  return $read_number;
}

&write_hits("hits");

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