#!/usr/bin/perl
use DBI;
use strict;

my $usrMySql = 'utente';
my $pwd = 'password';

my $db = "DBI:mysql:dizionario:192.168.xxx.xxx";
my $dbMySql = DBI->connect($db, $usrMySql, $pwd);

my $db = "dbi:SQLite:dbname=/sqlite/dizionariosqlite.sql";
my $dbh = DBI->connect ($db) or die "$!";
my $dbSQLite = $dbh->do("create table dizionario (id int, english text, italiano text);");

my @dat;
my $CursoreMySql = $dbMySql->prepare("select id, english, italiano from dizionario;");
if($CursoreMySql->execute) {
while(@dat = $CursoreMySql->fetchrow)
{
my $dbSQLite = $dbh->prepare("INSERT INTO dizionario VALUES (?, ?, ?)");
$dbSQLite->execute("@dat[0]", "@dat[1]", "@dat[2]");
}
}