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->finish();