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

print "DB connectivity test\n";

my $user='system';
my $password='manager';

my $DSN='dbi:Oracle://127.0.0.1:1521/db.company.local';
my $dbh = DBI->connect($DSN, $user, $password,
                      { RaiseError => 1, AutoCommit => 0 });

print "This works\n";                 
my $DSN='dbi:Oracle:host=127.0.0.1:sid=db.company.local:port=1521';
my $dbh = DBI->connect($DSN, $user, $password,
                      { RaiseError => 1, AutoCommit => 0 });
print "This doesn't\n";