use strict;
use warnings;

use DBI;
binmode(STDOUT, ":utf8");

#my $dbh = DBI->connect(qq(dbi:Oracle:Athenadb), qq(athena), qq(athena),{RaiseError => 1, ora_charset => 'AL32UTF8'});
my $dbh = DBI->connect(qq(dbi:ADO:Provider=MSDAORA.1;Data Source=AthenaDB), qq(athena), qq(athena), {RaiseError => 1});
my $statment = "select ADAS_ID, ADAS_Name from ADAS_DEVICE"; 
my $sth = $dbh->prepare($statment) or die dbh->errstr; 
$sth->execute or die dbh->errstr;
while (my ($ADAS_ID, $ADAS_NAME) = $sth->fetchrow_array) { print "$ADAS_NAME ID is $ADAS_ID \n";}

__OUTPUT__
忙聼鲁忙聻聴忙聳掳氓楼楼莽潞?35 ID is 296827
忙聼鲁忙聻聴茅聻聥氓聨聜莽潞?36 ID is 296890
忙聼鲁忙聻聴茅聭芦氓聼聨莽潞?33 ID is 296913
忙聼鲁忙聻聴猫楼驴忙聼鲁莽潞?42 ID is 268542