Select Code to Download

#!/usr/bin/perl
use warnings;
...
$select->execute();
$dbhC->do("CREATE TABLE outTable AS IMPORT(?)",{},$select);
__END__

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