#! /bin/perl

use strict;
use DBI;
use DBD::ODBC;

DBI->trace(DBD::ODBC->parse_trace_flag('odbcconnection'));

my $dbh = DBI->connect('dbi:ODBC:nhitest','delli28','XXXXXXX');

my $sth = $dbh->prepare("SELECT * FROM dbc.databases");

$sth->execute;
while (my $row = $sth->fetchrow_hashref) {
        print "Name: $$row{DatabaseName}, Owner: $$row{OwnerName}\n";
        #print "Name: $$row{TABNAME}, Owner: $$row{OWNER}\n";
}

$dbh->disconnect;