#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dbfile = "whatever.sqlite";

my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","",{RaiseError => 1})
    or die "Couldn't connect to database: " . DBI->errstr;


$dbh->do ("CREATE TABLE ScoreCard
             ( 
                Url       varchar(80)   DEFAULT '',
                DateTime  varchar(20)   DEFAULT '1995-12-30 00:00:01',
                Desc      varchar(100)  DEFAULT ''
             );
          ");

$dbh->do ("CREATE TABLE Participants
             (  id      integer PRIMARY KEY AUTOINCREMENT,
                Url     varchar(80)  ,
                Name    varchar(10)  DEFAULT ''
             );
          ");