#!/usr/bin/perl use strict; require "incl/common.pl"; require "incl/html.pl"; my $update_time = $dbh->selectrow_array("SELECT NOW()");