use DBI;
use DBD::Oracle;
my $host = "192.xxx.x.xx";
my $sid = "mydb";
my $connection = DBI->connect("dbi:Oracle:host=$host;sid=$sid;",'oracle','test12345')
 or die "Connection Error: $!\n";
##</code><code>##

"The procedure entry point OCIPing could not be located
in the dynamic link library OCI.dll"
<br>
Can't load 'C:/Perl/lib/auto/DBD/Oracle/Oracle.dll' for module DBD::Oracle: load_file:The specified procedure could not be found at C:/Perl/lib/DynaLoader.pm line 201.