use DBI;
use DBD::Oracle;
use strict;

my $dbh = DBI->connect("dbi:Oracle:host=myhost;sid=mysid", 'foo', 'bar') or die "I died: $DBI::errstr";

print "Content-type: text/html\n\n";
print "hey, i made it this far";


##</code><code>##


install_driver(Oracle) failed: Can't load 
'D:/Perl/site/lib/auto/DBD/Oracle/Oracle.dll' 
for module DBD::Oracle: load_file:Access is denied 
at D:/Perl/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 d:\currmktg\test.cgi line 14