#!/usr/bin/perl
$ENV{ORACLE_HOME}="/u01/app/oracle/product/10.2.0";
$ENV{ORACLE_SID}="orcl";
$ENV{LD_LIBRARY_PATH}="/u01/app/oracle/product/10.2.0/lib:/u01/app/oracle/product/10.2.0";
$ENV{NLS_LANG}="CIS_RUSSIA.CL8MSWIN1251";
$ENV{ORA_NLS10}="$ENV{ORACLE_HOME}/nls/data";
$ENV{PATH}="$ENV{PATH}:$ENV{ORACLE_HOME}/lib:$ENV{ORACLE_HOME}/bin";
$ENV{TNS_ADMIN}="/u01/app/oracle/product/10.2.0/network/admin";

use DBI;
use strict;
print "Content-type: text/plain\n\n";

DBI->trace(  16 , '/tmp/dbitrace.log' ) ;

print "available_drivers:\n";
print "$_; " foreach DBI->available_drivers;
print "\ndata_sources:\n";
print "$_\n" foreach DBI->data_sources('Oracle');

my $lineCount =  1  ;
foreach my $var (sort(keys(%ENV))) {
my $val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;
print "[$lineCount] ${var}=\"${val}\"\n";
$lineCount++ ;
}
print "\@INC = ", join("\n ", @INC), "\n" ;

eval {
my $dbh = DBI->connect("dbi:Oracle:orcl","scott", "tiger") || die "Database Connect Failed: $@\n $DBI::errstr\n";};
if($@) {
print "Connection to Oracle Failed: $@ \n";
} else {
print "Connection to Oracle Successful\n" ;
my $dbh->disconnect;
}

available_drivers:
DBM; ExampleP; File; Gofer; Oracle; Proxy; SQLite; Sponge; mysql; 
data_sources:
dbi:Oracle:EXTPROC_CONNECTION_DATA
dbi:Oracle:orcl
[ 1 ] DOCUMENT_ROOT="/var/www/localhost/htdocs/v2"
[ 2 ] GATEWAY_INTERFACE="CGI/1.1"
[ 3 ] HTTP_ACCEPT="text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
[ 4 ] HTTP_ACCEPT_CHARSET="windows-1251,utf-8;q=0.7,*;q=0.7"
[ 5 ] HTTP_ACCEPT_ENCODING="gzip,deflate"
[ 6 ] HTTP_ACCEPT_LANGUAGE="ru,en-us;q=0.7,en;q=0.3"
[ 7 ] HTTP_CACHE_CONTROL="max-age=0"
[ 8 ] HTTP_CONNECTION="keep-alive"
[ 9 ] HTTP_HOST="localhost"
[ 10 ] HTTP_KEEP_ALIVE="300"
[ 11 ] HTTP_USER_AGENT="Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.8) Gecko/2009032609 Firefox/3.0.8 (.NET CLR 3.5.30729)"
[ 12 ] LD_LIBRARY_PATH="/u01/app/oracle/product/10.2.0/lib:/u01/app/oracle/product/10.2.0"
[ 13 ] NLS_LANG="CIS_RUSSIA.CL8MSWIN1251"
[ 14 ] ORACLE_HOME="/u01/app/oracle/product/10.2.0"
[ 15 ] ORACLE_SID="orcl"
[ 16 ] ORA_NLS10="/u01/app/oracle/product/10.2.0/nls/data"
[ 17 ] PATH="/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/sbin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/opt/bin:/usr/i686-pc-linux-gnu/gcc-bin/4.1.2:/opt/sun-jdk-1.4.2.16/bin:/opt/sun-jdk-1.4.2.16/jre/bin:/opt/sun-jdk-1.4.2.16/jre/javaws:/usr/qt/3/bin:/usr/lib/subversion/bin:/u01/app/oracle/product/10.2.0/bin:/u01/app/oracle/product/10.2.0/lib:/u01/app/oracle/product/10.2.0/bin"
[ 18 ] QUERY_STRING=""
[ 19 ] REMOTE_ADDR="127.0.0.1"
[ 20 ] REMOTE_PORT="17724"
[ 21 ] REQUEST_METHOD="GET"
[ 22 ] REQUEST_URI="/i.cgi"
[ 23 ] SCRIPT_FILENAME="/var/www/localhost/htdocs/v2/i.cgi"
[ 24 ] SCRIPT_NAME="/i.cgi"
[ 25 ] SERVER_ADDR="127.0.0.1"
[ 26 ] SERVER_ADMIN="[no address given]"
[ 27 ] SERVER_NAME="localhost"
[ 28 ] SERVER_PORT="80"
[ 29 ] SERVER_PROTOCOL="HTTP/1.1"
[ 30 ] SERVER_SIGNATURE=""
[ 31 ] SERVER_SOFTWARE="Apache"
[ 32 ] TNS_ADMIN="/u01/app/oracle/product/10.2.0/network/admin"
[ 33 ] UNIQUE_ID="SgLq1H8AAAEAAFaTNTsAAAAG"
@INC = /etc/perl
 /usr/lib/perl5/vendor_perl/ 5 . 8 . 8 /i686-linux-thread-multi
 /usr/lib/perl5/vendor_perl/ 5 . 8 . 8 
 /usr/lib/perl5/vendor_perl
 /usr/lib/perl5/site_perl/ 5 . 8 . 8 /i686-linux-thread-multi
 /usr/lib/perl5/site_perl/ 5 . 8 . 8 
 /usr/lib/perl5/site_perl
 /usr/lib/perl5/ 5 . 8 . 8 /i686-linux-thread-multi
 /usr/lib/perl5/ 5 . 8 . 8 
 /usr/local/lib/site_perl
 .
Connection to Oracle Failed: Database Connect Failed: 
 ERROR OCIEnvNlsCreate. Check ORACLE_HOME (Linux) env var  or PATH (Windows) and or NLS settings, permissions, etc.

Environment variables:
        UNIQUE_ID=SgLq1H8AAAEAAFaTNTsAAAAG
        ORACLE_HOME=/u01/app/oracle/product/ 10 . 2 . 0 
        LD_LIBRARY_PATH=/u01/app/oracle/product/ 10 . 2 . 0 /lib:/u01/app/oracle/product/ 10 . 2 . 0 
        ORACLE_SID=orcl
        NLS_LANG=CIS_RUSSIA.CL8MSWIN1251
        HTTP_HOST=localhost
        HTTP_USER_AGENT=Mozilla/ 5 . 0  (Windows; U; Windows NT  5 . 1 ; ru; rv: 1 . 9 . 0 . 8 ) Gecko/ 2009032609  Firefox/ 3 . 0 . 8  (.NET CLR  3 . 5 . 30729 )
        HTTP_ACCEPT=text/html,application/xhtml+xml,application/xml;q= 0 . 9 ,*/*;q= 0 . 8 
        HTTP_ACCEPT_LANGUAGE=ru,en-us;q= 0 . 7 ,en;q= 0 . 3 
        HTTP_ACCEPT_ENCODING=gzip,deflate
        HTTP_ACCEPT_CHARSET=windows- 1251 ,utf- 8 ;q= 0 . 7 ,*;q= 0 . 7 
        HTTP_KEEP_ALIVE= 300 
        HTTP_CONNECTION=keep-alive
        HTTP_CACHE_CONTROL=max-age= 0 
        PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/sbin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/opt/bin:/usr/i686-pc-linux-gnu/gcc-bin/ 4 . 1 . 2 :/opt/sun-jdk- 1 . 4 . 2 . 16 /bin:/opt/sun-jdk- 1 . 4 . 2 . 16 /jre/bin:/opt/sun-jdk- 1 . 4 . 2 . 16 /jre/javaws:/usr/qt/ 3 /bin:/usr/lib/subversion/bin:/u01/app/oracle/product/ 10 . 2 . 0 /bin:/u01/app/oracle/product/ 10 . 2 . 0 /lib:/u01/app/oracle/product/ 10 . 2 . 0 /bin
        SERVER_SIGNATURE=
        SERVER_SOFTWARE=Apache
        SERVER_NAME=localhost
        SERVER_ADDR= 127 . 0 . 0 . 1 
        SERVER_PORT= 80 
        REMOTE_ADDR= 127 . 0 . 0 . 1 
        DOCUMENT_ROOT=/var/www/localhost/htdocs/
        SERVER_ADMIN=[no address given]
        SCRIPT_FILENAME=/var/www/localhost/htdocs/i.cgi
        REMOTE_PORT= 17724 
        GATEWAY_INTERFACE=CGI/ 1 . 1 
        SERVER_PROTOCOL=HTTP/ 1 . 1 
        REQUEST_METHOD=GET
        QUERY_STRING=
        REQUEST_URI=/i.cgi
        SCRIPT_NAME=/i.cgi
        ORA_NLS10=/u01/app/oracle/product/ 10 . 2 . 0 /nls/data
        TNS_ADMIN=/u01/app/oracle/product/ 10 . 2 . 0 /network/admin
        OCINlsEnvironmentVariableGet( 171 , 0 , 93 , 0 , 2 )=SUCCESS
        OCINlsEnvironmentVariableGet( 171 , 0 , 94 , 0 , 2 )=SUCCESS
        OCINlsEnvCreate(832589c,THREADED | OBJECT, 3 , 0 , 0 , 0 , 0 , 0 , 0 , 171 , 171 )=ERROR
         DESTROY for DBI::db=HASH(0x82e1c94) ignored - handle not initialised