...$user, $pass, {PrintError=>0, RaiseError=>1});
$dbh->do("use $database");
my $sth=$dbh->prepare( "SELECT * FROM Table1" );
my $result=$sth->execute();
while($result=$sth->fetchrow_hashref) {
print "$result->{CODE}\t$result->{NAME}\n";
}
$sth->finish;
$dbh->disconnect;
TIA's for tips and...