Select Code to Download

"Test.pl"

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

package DB;
use strict;
...
                             }
                   }