use DBI qw(:sql_types);
my $dbh = DBI->connect("DBI:SQLite:media.vdb");
$tmp="select * from links_video";
$sth = $dbh->prepare($tmp);
$sth->execute();
@row=$sth->fetchrow();
print "ROW|@row|\n";