おかもと　様、遠藤　様
お教え頂き有難うございます。

>SELECT time FROM table_name ORDER BY time DESC LIMIT 1;
をPerl内で使用してみたらちゃんと最新のデータが取り出せました。有難うございま
す。

>SELECT MAX(time) FROM table_name where time < now;
を下記の様にPerl内で使用したのですがエラーが出て表示できませんでした。Perl内
での記述の仕方が間違っているのでしょうか？もし間違っていましたらお教え下さ
い。

$dbh = DBI -> connect ($dns,$username,$password) or &Error("データベースへア
クセスできません。");
$sth = $dbh->prepare("select MAX(Nyu_nicizi) from kaimono where Nyu_nicizi <
now");
$sth -> execute() or &Error("select MAX(Nyu_nicizi)・・・ を実行できません。
");

print "content-type: text/html\; charset=shift_jis\n\n";
print"<pre>\n";
while(@ary = $sth -> fetchrow_array()){
print $ary[0];
}
print"</pre>\n";

$sth -> finish();
$dbh -> disconnect();
exit;

sub Error{
#print "content-type: text/html\n\n";
print $_[0];
print qq(<br><a href="javascript:history.back(1)">戻る</a>);
exit;
}

《発生したエラーメッセージ》
Premature end of script headers:
e:/home/shopping/public_html//saito/syoppusaito.cgi
DBD::mysql::st execute failed: Unknown column 'now' in 'where clause' at
e:/home/shopping/public_html//saito/syoppusaito.cgi line 15.
Database handle destroyed without explicit disconnect.

どうか宜しくお願いします。