print "remote addr: $addr\n";
print "refferer: $referrer\n";
print " </body>\n";
$mailto = '[email protected]'; #自分のメールアドレス
require TripodMail;
$MAIL = new TripodMail;
$mail_template = "template.txt";
$variables{mailto} = $mailto;
$variables{compname} = $compname;
$variables{host} = $host;
$variables{addr} = $addr;
$variables{referrer} = $referrer;
$variables{browser} = $browser;
print MAIL "From: visitorcheck\@somewhere.net\n"; #Fromは適当
print MAIL "To: $mailto\n";
print MAIL "Subject: your homepage access information\n";
print MAIL "\n";

print MAIL "computer name : $compname\n";
print MAIL "Host : $host\n";
print MAIL "IP : $addr\n";
print MAIL "referrer : $referrer\n";
print MAIL "browser : $browser\n";
print MAIL "Date : $year/$mon/$day\n";
print MAIL "Time : $hour:$min:$sec\n";
$variables{sec} = $sec;
$MAIL->sendMail($mail_template, \%variables);
exit;