use DBI;
use strict;

my $db=DBI->connect("DBI:SQLite:dbname=testdb","","");

my $sth = $db->prepare("select * from nosuchtable");

if ($sth){print "Table exists\n"}
else{print "No such table\n"}