#!/usr/bin/perl -w

use DBI;

my $dbh = DBI->connect("DBI:XBase:/Proyecto")
                                or die $DBI::errstr;
    my $sth = $dbh->prepare("SELECT * INTO OUTFILE 'mydata.csv' FIELDS TERMINATED BY ',' FROM reg501")
                                or die $dbh->errstr();
    $sth->execute() or die $sth->errstr();

    while ((my @row) = $sth->fetchrow_array()) {
    $counter++;
   print "Reg:$counter\t@row\n";
  
  }


##</code><code>##

DBD::XBase::db prepare failed: From specification expected near ` INTO OUTFILE 'mydata.csv' FIELDS TERMIN...' at ConexionMyDbf2.pl line 7.
From specification expected near ` INTO OUTFILE 'mydata.csv' FIELDS TERMIN...' at ConexionMyDbf2.pl line 7.