"DBD::SQLite::db prepare failed: file is encrypted or is not a database(26) at dbdimp.c line 269 at a.pl line 10.
Can't call method "execute" on an undefined value at a.pl line 3."

##</code><code>##

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";