#!/usr/local/bin/perl -w
use 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";
