Select Code to Download

use strict;
use DBI;
use Data::Dump qw/dump/;
...
my $sth = $dbh->ado_open_schema( 'adSchemaTables' ) or die $DBI::errst
+r;
my $result = $sth->fetchall_hashref('TABLE_NAME');
print dump(\$result);