test.pl

#!/usr/bin/env perl

use strict;
use warnings;
use v5.10;

use DBI;

unlink "test.sqlite";
my $dbh = DBI->connect(
    "dbi:SQLite:dbname=test.sqlite", undef, undef, { RaiseError => 1, AutoCommit => 0 }
);
$dbh->do(<<SQL);
create table foo (id int, name text)
SQL

for my $num ( 1..1_000_000 ) {
    $dbh->do(qq{
        insert into foo
        values ($num, $num)
    });
}

$dbh->commit;

my $rows = $dbh->selectall_arrayref(<<SQL);
    select * from foo limit 10000
SQL

#$dbh->sqlite_backup_to_file("test.sqlite");