DBI:Oracle on Strawberry Perl

Hi There,
Has anybody installed DBI::Oracle on Strawberry Perl on Windows. Can anybody send me steps to do that in a clear way, it will be deeply appreciated.

Actually I have strawberry Perl 5.10.1 installed on Windows and I am developed a code to send XML request and get response which is working fine,

Now I need to access Oracle DB from the same script. However when I run that code, I get below error, which looks like DBD Oracle needs to be installed. I searched google and found that it comes by defaut with Active State Perl but not with Strawberry Perl. So I installed Active State Perl but my XML request code doesn't work in Active State Perl. So I reverted back to Strawberry Perl.

So can anybody tell me please how can I access oracle from Strawberry Perl. Also I have attached my XML code here, if anybody have idea why it's not working in Active State Perl.


ORACLE_HOME is C:\oracle\ora92;C:\oracle\product\11.2.0\client_1;
install_driver(Oracle) failed: Can't locate DBD/Oracle.pm in @INC (@INC contains: C:/Vivek M/perlscripts/WorkSpace/.metadata/.plugins/org.epic.debug C:/Vivek M/perlscripts/WorkSpace/Hello C:/strawberry/perl/lib C:/strawberry/perl/site/lib C:\strawberry\perl\vendor\lib .) at (eval 3) line 3.
Perhaps the DBD::Oracle perl module hasn't been fully installed,
or perhaps the capitalisation of 'Oracle' isn't right.
Available drivers: ADO, DBM, ExampleP, File, Gofer, ODBC, Pg, Proxy, SQLite, Sponge, mysql.
at C:/Vivek M/perlscripts/WorkSpace/Hello/Hello.pl line 6


Kind Regards,
Vivek Malhotra
ECommerce Test Services
t+44 (0) 113 202 4544
m+44 (0) 7596880793
Telefónica UK Limited


This electronic message contains information from Telefonica UK, Telefonica Europe or Telefonica Digital which may be privileged or confidential. The information is intended to be for the use of the individual(s) or entity named above. If you are not the intended recipient be aware that any disclosure, copying distribution or use of the contents of this information is prohibited. If you have received this electronic message in error, please notify us by telephone or email.
 
 
Switchboard: +44 (0)113 272 2000
Email: [email protected]
 
Telefonica UK Limited  260 Bath Road, Slough, Berkshire SL1 4DX Registered in England and Wales: 1743099. VAT number: GB 778 6037 85
Telefonica Europe plc  260 Bath Road, Slough, Berkshire SL1 4DX Registered in England and Wales: 05310128. VAT number: GB 778 6037 85
Telefonica Digital Limited  260 Bath Road, Slough, Berkshire SL1 4DX Registered in England and Wales: 7884976. VAT number: GB 778 6037 85

// PERL Code

#!/usr/bin/perl -w
use strict;
use FileHandle;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Headers;

# Unset $/, the Input Record Separator, to make <> give you the whole file at once
local $/=undef;
#Open File Handle
open (MYFILE, 'C:\Vivek M\perlscripts\WorkSpace\CreditCustomer\CreditCustomer.xml') or die "Could not open file\n";
my $filecontents = <MYFILE>;
close(MYFILE);

print ("<<<<<   REQUEST  >>>>> \n\n");
print $filecontents . "\n";

# Certificates
#$ENV{HTTPS_CA_FILE} = 'C:\AccessGateway\soapuiopenssl.pem';
$ENV{HTTPS_CERT_FILE} = 'C:\AccessGateway\soapuiopenssl.pem';
$ENV{HTTPS_KEY_FILE}  =  'C:\AccessGateway\soapuiopenssl.pem';

# Proxy_basic_auth
$ENV{HTTPS_PROXY_USERNAME} = 'testprepay_90';
$ENV{HTTPS_PROXY_PASSWORD} = 'Smart421';

print("\n\n");
print ("<<<<<<<  RESPONSE  >>>>>>> \n\n");

# Creating and firing the request
my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => 'https://dmmlw-ldom-056:10001/axis2/services/CreditCustomerService_1_0');
#$request->header('Host' => "dmmlw-ldom-056");
$request->content_type("text/xml");
$request->content_length(length($filecontents));
$request->content($filecontents);

# Getting the Response
my $response = $userAgent->request($request);

# Verifying the response
if (!$response->is_error) {
  print $response->content;
  print "\n";
}
else {
  print $response->error_as_HTML;
}