my $data = qq(UPDATE now_time SET time= NOW(), location="$ENV{'HTTP_REFERER'}", count=... WHERE ip="$userip");
      my $sth = $dbh->prepare($data);
      $sth->execute() or die $dbh->errstr;