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

  insert into `index` (webdesc, webtext, uploader, pagerank, last_review, url, title) values ('ina', ? , '$uploader', '3', CURDATE( ), '$resultado', '@title')
});

#$sth->execute(join("\n","@linea"));
$sth->execute();