my $csv_dbh = DBI->connect( 'dbi:CSV...);
my $ora_dbh = DBI->connect( 'dbi:Oracle...);
my $fir_dbh = DBI->connect( 'dbi:Firebird...);
my $ora_sth = $ora_dbh->prepare(...);
my $fir_sth = $fir_dbh->prepare(...);
my $csv_sth = $csv_dbh->prepare("
        SELECT $cols
          FROM IMPORT(?) AS T1
  NATURAL JOIN IMPORT(?) AS T2 ...
");
$csv_sth->execute( $fir_sth, $ora_sth );