$ cat mk_sqlite.pl
#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $DB = DBI->connect('dbi:SQLite:test.db', RaiseError=>1) or die $DBI::errstr;
$DB->do('create table foo (id int)') or die $DBI::errstr;
$DB->do('insert into foo (id) values (1)') or die $DBI::errstr;

$ perl mk_sqlite.pl

$ sqlite3 test.db
SQLite version 3.7.3
Enter ".help" for instructions
Enter SQL statements terminated with a ";"
sqlite> select * from foo;
1
sqlite>