Select Code to Download

...
    my $sqlstatement = "insert into $table ($keylist) values ($qlist) 
+returning id";
...
    $sth->execute(@values) || die "Could not execute statement: $sqlst
+atement $sth->errstr";
    my $id = $sth->fetchall_arrayref->[0]->[0];
...