解决DBI查询Access数据中文显示乱码问题

#!/usr/bin/perl

use DBI;
use Encode;
use strict;

my $DSN = "driver=Microsoft Access Driver (*.mdb);dbq=G:temptry.mdb";
my $dbh = DBI->connect( "dbi:ODBC:$DSN", '', '' )
  or die "Can't connect to Database: $DBI::errstr";

# 读取记录
my $sth = $dbh->prepare(q{SELECT * FROM TT})
  or die "Can't prepare statement: $DBI::errstr";
my $rc = $sth->execute or die "Can't execute statement: $DBI::errstr";

my @row_ary;
while ( @row_ary = $sth->fetchrow_array ) {
    my @line = map { T($_ ) } @row_ary;
    print "@line\n";
}

# 关闭连接
die $sth->errstr if $sth->err;
$dbh->disconnect;

#解决中文乱码
sub T {

    my $text = shift;
    return encode( 'gb2312', $text );

}