$sth = $dbh -> prepare (qq~use FFImages~);
$sth -> execute();

##</code><code>##

$sth = $dbh -> prepare (qq~use FFImages select * from information_schema.tables where table_catalog = 'FFImages' and table_type = 'Base Table'~) or die "Could not prepair";
$sth -> execute() or die "$DBI::errstr";