while( my @row = $sth->fetchrow_array() )
{
	my $descriz = $row[1];   # IDTitolo
	my $title_id = $row[0];  # Descriz

	$descriz =~ s/\^M//g;
	$descriz =~ s/\n//g;
	$descriz =~ s/^\s+//g;
	$descriz =~ s/\s+$//g;
        print $descriz, "\n";

#	$dbh->do( "UPDATE Titoli SET Descriz = '$descriz' WHERE IDTitolo = '$title_id'" );
}