#!E:/users/yin/perl/bin
print "Context-type  text/html\n\n";
print "THis is try for DBI module\n";
use DBI;
$dbh=DBI->connect('dbi:ODBC:db1');
$sqlstatement="SELECT Field1 FROM Customers";
$sth = $dbh->prepare($sqlstatement);
$sth->execute || die "Could not execute SQl statement, maybe invalie?";
while (@row=$sth->fetchrow_array)
  {  
   print "@row\n";
}


##</code><code>##

Context-type text/html

THis is try for DBI module
Frog
Jameson
Gold


##</code><code>##

THis is try for DBI module