perl从oracle中取日期的问题

我在数据库里面

select to_char(sysdate,'YYYYMMDD') from dual

用这个语句取出的日期是

20070412

我用以下程序

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

 

取得的日期是:20070411