#!/usr/bin/perl

use strict;
use DBI;

$ENV{ORACLE_HOME} = "/usr/local/oracle9";

my $dbhost   = '';
my $database = '';
my $username = '';
my $password = '';

# Build a dsn
my $dsn = "DBI:Oracle:host=$dbhost;sid=$database";

# Create a database handle
print scalar localtime(), " connecting ...\n";
my $dbh = DBI->connect($dsn, $username, $password, {
        RaiseError => 0,
        PrintError => 1,
        AutoCommit => 0
}) or die $DBI::errstr;
print scalar localtime(), " done.\n";
$dbh->disconnect();