Database Connection from Perl

Or you might want to do this to see a proper error message:

-------------

# Install global exception handler
$SIG{__DIE__} = \&DeathHandler;

my(@aDBILogin) = (
    'DBI:Oracle:__THEDATABASE__;host=__THEHOST__',
    '__THEUSERNAME__',
    '__THEPASSWORD__'
);

my($dbh);

eval {
    $dbh = DBI->connect(@aDBILogin);
};
die($@ . "\nDBI-Error:" . DBI->errstr) if ($@);

$dbh->{RaiseError} = 1;

-------------
... OTHER CODE ...
-------------

# Global exception handler
sub DeathHandler {
     print "Content-type: text/html\n\n";
     print 'Error: ' . EscHTML($_[0]);
     exit;
}

-------------

I threw in the "die" handler code too as it seems you are not catching exceptions in your perl code.