my $sth = $dbh->prepare(qq{

  insert into `index` (webdesc, webtext, uploader, pagerank, last_review, url, title) values ('ina', ? , '$uploader', '3', CURDATE( ), '$resultado', '@title')
});
while (defined(my $line = <FILEHTML>  )) {
push @linea2, $line;
}
#print @linea2;
$sth->execute(join("\n","@linea2"));