my $sql = q{UPDATE now_time SET time= NOW(), location=?, count=count+1 WHERE ip=?};

$dbh->do($sql,{}, $ENV{HTTP_REFERER}, $userip)
  or die $dbh->errstr;