#!/usr/bin/perl

use strict;
use warnings;
use DBI;

sub dbConnect{
    my ($database, $username, $password, $hostname) = @_;
    my $db = DBI->connect("DBI:SQLite:$database:$hostname", $username,
    $password) || die "Cannot connect to host database.".$DBI::errstr;
    return $db;
}

sub dbDisconnect{
    my ($db) = @_;
    $db->disconnect;
}

sub dbINSERT{
    my $table  = shift;
    my $set    = shift;
    my @values = @_;

    my($database) = "myDB";
    my($username) = "username";
    my($password) = "password";
    my($hostname) = "myHost.com";

    my $db = dbConnect($database, $username, $password, $hostname);

    my $vals = join',', map { $db->quote($_) } @values;
    my $query = qq|INSERT into $table ($set) VALUES ($vals)|;
    print "$query\n";

    $query = $db->prepare($query); #LINE 31
    $query->execute; #LINE 40
    $query->finish;
    dbDisconnect($db);
}

sub dbUPDATE{
# Do updates here
}

sub dbDELETE{
# Do deletes here
}

dbINSERT('ORGANISM', 'ORG_NAME, GI, NC', "11111111", "some bacteria", "NC_000000");