#! /usr/bin/perl

($min, $hour, $day, $mon) =(localtime(time))[1,2,3,4];
$referer = $ENV{'HTTP_REFERER'};
$agent = $ENV{'HTTP_USER_AGENT'};
$addr = $ENV{'REMOTE_ADDR'};
$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
$mouth = ($mon+1);


open (IN, ">>access.txt");
print IN "$mouth\/$day $hour\:$min<>$referer<>$addr<>$host<>$agent\n";
print @buf;
close (IN);