use strict;
use warnings;

my $counter;

open FILE, "visit.txt" or die "Screwed it up...Can't open for read: $!\n;
$counter = <FILE>;
close FILE;

$counter++;

open FILE, ">visit.txt" or die "Screwed it up...Can't open for write: $!\n";
print FILE $counter;
close FILE;