use DBI;
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","");
my $sth = $dbh->table_info(undef, $schema, $table, $type, \%attr);
…;