"Test.pl"


use strict;
use DBI;
use DB qw(:All);
use SQL::Abstract;
my $sql = SQL::Abstract->new();

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

my $popsamp = [qw(Popl Samp)];
my $form2 = "ID varchar(40) not null";
createtb($form2,$popsamp,$dbh);