#!/usr/local/bin/perl -w
use strict;

print "Content-type: text/html\n\n";

$counttext = 'd:/xxx.xxx.xxx.xxx/perl/thecounter/counttext.txt';
$thenumber;

open(COUNTTHIS, "< $counttext") or die "I can't open counttext: $!\n";
print (<COUNTTHIS>);
$thenumber = <COUNTTHIS>;  #I thought something like this, but no
print "$thenumber";
print "<br>";
$thenumber = ++$thenumber;
print "$thenumber";