#!/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='select * from r where name = ?';
my $select=$dbh->prepare($statement)
 || die $dbh->err_msg;
print "prepared\n";
my $name='maza';
$select->bind_param(1,\$name);
$select->execute();
while ( my($a,$b,$c,$d)=$select->fetchrow_array) {
  print "$a, $b, $c, $d\n";
}
$dbh->disconnect;
print "disconnected\n";
