use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;

print header;

my $dbh = DBI->connect("dbi:Oracle:host=pikachu;sid=DEVORANT", "so", "so") 
			or die "Can\'t connect to -- $DBI::errstr\n";
print "hello world";
##</code><code>##

Content-type: text/html 
Software error:
install_driver(Oracle) failed: [Tue Jun 6 14:53:43 2000]
C:\InetPub\cgi-bin\spmc\search.pl: [Tue Jun 6 14:53:43 2000]
C:\InetPub\cgi-bin\spmc\search.pl: Can't load
 'C:/Perl/site/lib/auto/DBD/Oracle/Oracle.dll'
 for module DBD::Oracle: load_file:Access is denied at
 C:/Perl/lib/DynaLoader.pm line 169. [Tue Jun 6 14:53:43 2000]
C:\InetPub\cgi-bin\spmc\search.pl: [Tue Jun 6 14:53:43 2000]
C:\InetPub\cgi-bin\spmc\search.pl: [Tue Jun 6 14:53:43 2000]
C:\InetPub\cgi-bin\spmc\search.pl: [Tue Jun 6 14:53:43 2000]
C:\InetPub\cgi-bin\spmc\search.pl: at (eval 7) line 3
 at C:\InetPub\cgi-bin\spmc\search.pl line 17 
For help, please send mail to this site's webmaster,
giving this error message and the time and date of the error.