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;
    $db->{RaiseError} = 1;
    $db->{PrintError} = 1;
    return $db;
}