#!/usr/bin/perl
$date=`date`;
chop($date);
open(LOG,">>./logs/visitors");
print LOG $date," ",$ENV{"REMOTE_ADDR"},$ENV{"REMOTE_HOST"},"\n";
close(LOG);
print "Location: welcome\n\n";