my $sth = $dbh->prepare(qq{
   insert into webpage (webdesc, webtext, uploader) values ('url_to_add', ?, 'peo')
});
$sth->execute(join(@linea,"\n"));