"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);

##</code><code>##

package DB;
use strict;
use base qw(Exporter);
use vars qw(@EXPORT_OK);
@EXPORT_OK = qw(createtb);


sub createtb{
  	my ($form, $tabler, $dbh) = @_;
        my @table = @$tabler;
               foreach my $table (@table){  
  	           my $stm = "create table $table ($form)";
                   my $stm1 = $dbh -> prepare($stm);
                   $stm1 ->execute;        
           	
           				  }
           		}