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