#!/usr/bin/perl -w
use strict ;
use DBI ;

DBI->trace(15);
my $dbh = DBI->connect('dbi:Oracle:confdb', 'admin', 'admin',{'RaiseError'=>1}) || die "Database connection not made: $DBI::errstr";

my $sth = $dbh->prepare("select obj_name from objecttype") ; $sth->execute ;
my $row = $sth->fetchrow_arrayref() ;
print ">>> $row->[0] <<<\n" ;
$sth->finish ;
$dbh->disconnect ;