perl从oracle中取日期的问题

我在数据库里面

selectto_char(sysdate,'YYYYMMDD')fromdual

用这个语句取出的日期是

20070412

我用以下程序

#!/usr/local/bin/perl
useDBI;
$dbh=DBI->connect('dbi:Oracle:host=IP地址;sid=ORASID','用户/密码','')||
die('cann'tconnecttodatabase');
$date=$dbh->prepare("selectto_char(sysdate,'YYYYMMDD')fromdual");
$date->execute();
while(@row=$date->fetchrow_array)
{
printf("$row[0] ");
}
$dbh->disconnect;

取得的日期是:20070411