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

my $dbhX = DBI->connect('dbi:XBase(RaiseError=1):');
my $dbhC = DBI->connect('dbi:CSV(RaiseError=1):');
my $select = $dbhX->prepare("SELECT * FROM inTable");
$select->execute();
$dbhC->do("CREATE TABLE outTable AS IMPORT(?)",{},$select);
__END__