#!/usr/bin/perl -w

use DBI;
use strict;
my $db = DBI->connect("dbi:SQLite:test.db", "", "", {RaiseError => 1,
AutoCommit => 1});

################################################################################

sub create_db {

     $db->do("CREATE TABLE n (id INTEGER PRIMARY KEY, f TEXT, l TEXT)");
}

################################################################################

sub insert {

     my($f, $l) = @_;
     $db->do("INSERT INTO n VALUES (NULL, '$f', '$l')");
}

sub random_insersts {

         for(my $i = 0; $i <= 10000; $i++){
                 my $timestamp = localtime(time);
                 $db->do("INSERT INTO n VALUES (NULL, 'record $i',
'$timestamp')");
                 #sleep(1);
         }
}

################################################################################

sub print_result {

     my $all = $db->selectall_arrayref("SELECT * FROM n");

         #DBI::dump_results($db);
     foreach my $row (@$all) {

                 my ($id, $first, $last) = @$row;
         print "$id | $first | $last\n";
     }
}

################################################################################

create_db();
#insert('line1', 'lin2');
random_insersts();
print_result();