my $dbh = DBI->connect("dbi:SQLite:dbname=pedro.lite","","",
	{AutoCommit => 0}) or die "Can't connect";