#!/usr/bin/perl

use DBI;

	$user = "takawone_test";
	$pass = "goomani";
	$dbname = "takawone_access";
	$ip = $ENV{'REMOTE_ADDR'};

	$db = DBI->connect("DBI:mysql:$dbname:localhost","$user","$pass");
	$statement = "INSERT INTO tbl_access (a_url, a_ref, a_ip) VALUES ('http://aaa.com/','http://bbb.com','$ip')";
	$sth = $db->prepare("$statement");
	$sth->execute;
	$sth->finish;
	$db->disconnect;

	print "Content-type: text/html\n\n";
	print "レコード追加したぞ";

exit;