use DBI; 
$dbh = DBI->connect("dbi:Oracle:", "scott","tiger") || die "Unale to connect to oracle.  $DBI::errstr\n";

##</code><code>##

C:\ActivePerl\examples>perl conn_oracle.pl
install_driver(Oracle) failed: Can't load 'C:/ActivePerl/site/lib/auto/DBD/Oracl
e/Oracle.dll' for module DBD::Oracle: load_file:One of the library files needed
to run this application cannot be found at C:/ActivePerl/lib/DynaLoader.pm line
200.
 at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a required shared library or dll isn't installed where expected
 at conn_oracle.pl line 2