use Cwd;
use Net::FTP;
use DBI;
use strict;

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 dbQuery{
    my ($query) = @_;
        print $query;
    my($database) = "myDB";
    my($username) = "username";
    my($password) = "password";
    my($hostname) = "myHost.com";
    my $db = dbConnect($database, $username, $password, $hostname);
    $query = $db->prepare($query); #LINE 31
    $query->execute; #LINE 40
    $query->finish;
    dbDisconnect($db);
}

my $gi = "11111111";
my $orgName = "some bacteria";
my $nc = "NC_000000";
my $query = "INSERT INTO ORGANISM (ORG_NAME, GI, NC) VALUES ('$gi', '$orgName', '$nc')";
            dbQuery($query);