use DBI;
my $dbfile = 'database.db';      # your database file
my $dbh = DBI->connect(          # connect to your database, create if
+ needed
    "dbi:SQLite:dbname=$dbfile", # DSN: dbi, driver, database file
    "",                          # no user
    "",                          # no password
    { RaiseError => 1 },         # complain if something goes wrong
) or die $DBI::errstr;

my $table = 'test';
my @rows  = qw(id time data);
$dbh->do("create table $table (".join(',',@rows).')')
  or die $DBI::errstr;
[download]

Read the documentation of DBD::SQLite. It helps.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}