Code:
#!/usr/bin/perl
$data = 'data.log';
open (F, $data);
seek (F,0,0);
$br = <F>;
close (f);
$br++;
open (F,">$data");
seek (F,0,0);
print F "$br";
close (f);
print "Content-type:text/html\n\n";
print <<EndHdr;
<font face="Verdana, Arial, Helvetica, sans-serif" color="#003366" size="2">Number of visitors: <b>$br</b><br>since 26.03.2002.</font>
EndHdr
#!/usr/bin/perl
$data = 'data.log';
open (F, $data);
seek (F,0,0);
$br = <F>;
close (f);
$br++;
open (F,">$data");
seek (F,0,0);
print F "$br";
close (f);
print "Content-type:text/html\n\n";
print <<EndHdr;
<font face="Verdana, Arial, Helvetica, sans-serif" color="#003366" size="2">Number of visitors: <b>$br</b><br>since 26.03.2002.</font>
EndHdr
CHMOD
data.log = 644
count.cgi = 755
Sve sto je besmislenije, utoliko je bolje.