在IIS5.0+activeperl下DBI连数据库无显示

[activeperl]

在IIS5.0+activeperl下，使用DBI+DBD-ODBC或用win32::odbc连接SQLSERVER数据库，在浏览器页面调试时，无法显示数据，而同一个脚本不做任何修改在APACHE+activeperl下却能正常在浏览器页面上显示数据，脚本如下：
#!/usr/bin/perl
$|=1;

###定义变量###
my $dataserver="localhost";#数据库服务器名称
my $database="pubs";#数据库名称
my $dataid="sa";#数据库用户
my $datapswd=""; #数据库密码
my $datatable="sysusers";#表
my $DSN = "driver={SQL Server};Server=$dataserver;database=$database;";
my $dbh = DBI->connect("dbi:ODBC:$DSN", '$dataid', '$datapswd');

use CGI;
use DBI;
use strict;

print "Content-Type:text/html\n\n";
print <<html;
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
html

my $sth=$dbh->prepare(qq{
SELECT * FROM $datatable
});

$sth->execute();

my ($list,@list);
while (@list=$sth->fetchrow_array()) {
print "$list[0]|$list[1]|$list[2]<br>\n";
}
print "@list\n";
$sth->finish();
$dbh->disconnect();

exit(0);