#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dsn="dbi:CSV:";

my $dbh=DBI->connect($dsn, "","",{
        f_encoding       => "utf8",
        f_dir            => "./",
})or die DBI->errstr;

$dbh->{csv_tables}->{t1} = {
        'file' => '17_Trx_22Aug2012_0405.csv',
        'eol' => "\n",
};

my $sth;
$sth=$dbh->prepare("select * from t1");
$sth->execute;
while( my $r = $sth->fetchrow_hashref){
        print "$r->{item1},$r->{item2}\n";
}
$sth->finish;
$dbh->disconnect;

#print version
print "perl version =$]\n";
for (qw/DBI Text::CSV_XS SQL::Statement DBD::CSV/){
        print "$_ ==>".$_->VERSION."\n";
}