my $dbhX1 = DBI->connect('dbi:XBase(RaiseError=1):');

my $select1 = $dbhX1->prepare("SELECT * FROM r501");
$select1->execute();
print "\nEjecutar SELECT de r501\n";

    my $mysql_dbh1 = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",
                        "root", "xyz123",
                        {'RaiseError' => 1});
while  ( (my @row) = $select1 -> fetchrow_array() ){

  my $sthsql = $mysql_dbh1->prepare ("INSERT INTO r501 (reg, pat, ped, adnasec, impexp, cveped, adnaent, crupimp, rfcimp, curpaa)
                                     VALUES ($row[0], $row[1], $row[2], $row[3], $row[4], $row[5], $row[6], $row[7], $row[8], $row[9]")

$sthsql->execute();

}