use strict;
use warnings;
use Data::Dumper;
use DBI;
use DBD::ODBC;

$|++;

my $DSN      = $ARGV[0];
my $UserName = $ARGV[1];
my $PassWord = $ARGV[2];
my $dbh      = DBI->connect("dbi:ODBC:$DSN", $UserName, $PassWord, { RaiseError => 1, AutoCommit => 1 }) or die "Couldn't connect to:\[$DSN\] as \[$UserName\]: $DBI->errstr";
my @SELRow;
my $SQL_Statement = "
Select
   *
From
   DBC.DBCInfo
;
";


my $SELh = $dbh->prepare($SQL_Statement);
$SELh->execute;
while(@SELRow = $SELh->fetchrow_array)
   {
   print("$SELRow[0]:$SELRow[1]\n");
   }

$SELh->finish();
$dbh->disconnect();
print(Dumper(\@SELRow));