use strict;
use DBI;
use Data::Dump qw/dump/;
my $dsn = 'test';

my $dbh = DBI->connect("dbi:ADO:$dsn", '', '' ) or die $DBI::errstr;
my $sth = $dbh->ado_open_schema( 'adSchemaTables' ) or die $DBI::errstr;
my $result = $sth->fetchall_hashref('TABLE_NAME');
print dump(\$result);