#!/usr/local/bin/perl -wuse strict;use DBI;my $host='localhost';my $port=6100;my $dbh = DBI->connect(  "dbi:Gigabase:host=$host;port=6100",    "guest", "guest",{AutoCommit=>1})    || die $DBI::errstr;#$dbh->commit;#print "commiting\n";$dbh->disconnect;print "disconnection\n";