#!/usr/bin/perl5
#!/perl/bin/perl.exe
#
# [counter.cgi]
#
#     Perl programming by Kasper Sander Kruber
# Copyright 1999, ADCO Design - PR - Kommunikation
#
#              w w w . a d c o . d k


$flocking=1;


open (FILE,"<counter.txt");
if ($flocking) { flock(FILE,2); }
$hits=<FILE>;
if ($flocking) { flock(FILE,8); }
close (FILE);

$hits++;

open (FILE,">counter.txt");
if ($flocking) { flock(FILE,2); }
print FILE $hits;
if ($flocking) { flock(FILE,8); }
close (FILE);