#!/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","g", "g")||die ;
my $statement='insert into d values (1)';
my $insert=$dbh->prepare($statement)
  || die $dbh->errstr;
 $insert->execute();
 $insert->finish;
$dbh->disconnect;
