my $dbhX = DBI->connect ( Xbase connection info);
my $dbhA = DBI->connect( 'dbi:AnyData:' ); 
$dbhA->ad_catalog('outfile','CSV',$output_filename);
my $sth = $dbhX->prepare( Select SQL );
$sth->execute();
$dbhA->do("CREATE TABLE outfile AS SELECT * FROM ?",{}, $sth);