[AlexRU]

Уважаемые программисты!

К сайту полностью подготовленном на Flash, хочу сделать статистику посещения конкретных разделов сайта. Т.е. отслеживать количество кликов по кнопкам, загружающим конкретные .swf.
Разделов не мало. Решил использовать базу данных MySQL. Скрипт написал на Perl. Тестирую на локальной машине.
Проблема в том, что в базу ничего не записывается. Такое ощущение, что не происходит подключение к базе данных. Ниже привожу скрипт на Perl. Подскажите, что не так?

В базе book таблица click_tracker с полями: PAGE - .swf; COUNT - клики, LAST_ACCESS - время последней загрузки .swf.

#!/usr/bin/perl
# track.cgi
use strict;
use DBI;
use CGI;
use POSIX;
$database = "book";
$datahost = "localhost"
$user = "book";
$password = "verba";
$dbh=DBI->connect("DBI:mysql:$database:$datahost", $user, $password);
$url = param('url');
$time = strftime("%Y-%m-%d %I:%M:%S", localtime);
$query = qq(UPDATE click_tracker SET COUNT=COUNT+1, LAST_ACCESS='$time' WHERE PAGE='$url');
$sth = $dbh->prepare($query);
if ($sth->execute<1) {
$query = qq(INSERT INTO click_tracer (PAGE, COUNT, LAST_ACCESS) VALUES ('$url', 1, '$time'));
$sth = $dbh->prepare($query);
$sth->execute;
}
$dbh->disconnect;

Буду очень благодарен за дельный совет.