#!/usr/bin/perl -w

use DBI;
use DBD::JDBC;

my $dsn = "dbi:JDBC:hostname=localhost;port=9005;url=jdbc:sequoia://localhost/myDB";
my $dbh = DBI->connect($dsn, "user","") or die print $DBI::errstr;

my $sth = $dbh->prepare("select id,name from product");
$sth->execute;
my ($id,$name);
while(($id,$name)=$sth->fetchrow_array){
	print "  $id  |  $name\n";
}