Alguno de ustedes pollos sabe como importar los datos de una DBF de Foxpro para DOS a MySQL ?
actualmente estoy teniendo que hacer lo siguiente:

my $dbhX1 = DBI->connect('dbi:XBase(RaiseError=1):');
my $dbhC1 = DBI->connect('dbi:CSV(RaiseError=1):');
my $select1 = $dbhX1->prepare("SELECT * FROM r501");
print "nEjecutar SELECT de r501n";
$select1->execute();

$dbhC1->do("CREATE TABLE r501.csv AS IMPORT(?)",{},$select1);
print "nconectar al a base de datos en Mysqln";
my $mysql_dbh1 = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",
                         "root", "xyz123",
                         {'RaiseError' => 1});
#---- Here I empty the table in MySql ------
print "Limpiando la tablan";

$mysql_dbh1->do("TRUNCATE TABLE r501");
#---- Here I load all the data -------
my $sql1 = "LOAD DATA LOCAL INFILE 'c:/proyecto/r501.csv'
INTO TABLE r501
FIELDS TERMINATED BY ','
LINES TERMINATED BY 'n'";
my $sth1 = $mysql_dbh1->prepare($sql1);
print "ejecutando la carga de la tablan";
$sth1->execute ();


Es decir que estoy convirtiendo la DBF en CSV para poder subirla con LOAD DATA a MySQL el problem es que me lleva mucho tiempo consume para 7 tablas consume hasta 45 minutos en hacer el cambio.

Si saben se les agradece que me digan como o si tienen un ejemplito pues mejor gracias!!!

General