#!/usr/bin/perl
open (FILE,"+<licznik2.dat");
$hits = <FILE>;
$hits = $hits+1;
seek (FILE,0,0);
print FILE $hits;
close (FILE);

print "Content-type: text/plain\n\n";
print $hits;