#!/usr/bin/perl

open(COUNTER, "<counter.dat");
$counter= <COUNTER>+1;
close(COUNTER);
open(COUNTER, ">counter.dat");
print COUNTER $counter;
close(COUNTER);

open(LOGIN, ">>login.dat");
print LOGIN "$ENV{'REMOTE_ADDR'}&&$ENV{'HTTP_REFERER'}\n";
close(LOGIN);

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