#!/usr/bin/perl -w
# call the required modules
use DBI;
use DBD::JDBC;
# The actual DSN (one line, separated here for readability)
my $port = 9001;
my $host = 'localhost';
my $dbh =
DBI->connect( "dbi:JDBC:hostname=$host;port=$port;"
."url=jdbc:sequoia://localhost:25322/sequoia_cmhostdb", "user","" )
or die print $DBI::errstr;