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

my @databases = ('STUDY','XHL');
my ($username, $password) = ('SYSTEM','XHL');
foreach my $db ( @databases )
{
print "checking $db n";
my $dbh='';
eval {
$dbh = DBI->connect(
'dbi:Oracle:' . $db,
$username, $password,
{RaiseError => 1}
);
};
if ($dbh)
{ # success
print "Connection succeeded for $dbn";
$dbh->disconnect;
}
else
{ # failure
print "Error connecting to $dbn";
}
}