use strict;
use warnings;

use DBI;

my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    f_dir              => "/root",
    f_ext              => ".csv/r",
    RaiseError         => 1,
    PrintError         => 1,
    ShowErrorStatement => 1,
    });

print "DBI-$DBI::VERSION\n";
print "DBD::CSV-$DBD::CSV::VERSION\n";
print "Text::CSV_XS-$Text::CSV_XS::VERSION\n";
print "SQL::Statement-$SQL::Statement::VERSION\n";
print "\n";
print "$_\n" for $dbh->tables (undef, undef, undef, undef);