#! /usr/bin/perl

use DBI;
use strict;
use warnings;

print "Hello.\n";
my $dsn = 'dbi:Oracle:sid=ORCL';
my $user = 'MyID';
my $password = 'MyPWD';
my $dbh = DBI->connect($dsn,$user,$password,RaiseError => 1, AutoCommit => 0)
            || die "Database connection failed: $DBI::errstr";
print "Database connection succeeded.\n";
$dbh->disconnect();
print "Bye, bye ;-)\n";
exit