use strict;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
use LWP::Debug qw(+); 

my $method = 'POST';
my $host = 'orbitalvar1.paymentech.net'; 
my $uri = '/authorize';

$uri = 'https://orbital1.paymentech.net/authorize';

## This is the fake request we are generating 
my $xmlRequest = '<?xml version="1.0" encoding="UTF-8"?>'.
                      '<Request>'.
                      '<NewOrder>'.
                      '<IndustryType>EC</IndustryType>'.
                        '<MessageType>A</MessageType>'.
                        '<BIN>000002</BIN>'.                        
                        '<TerminalID>001</TerminalID>'.
                        '<AccountNum>4111111111111111</AccountNum>'.
                        '<Exp>1009</Exp>'.
                        '<CurrencyCode>840</CurrencyCode>'.
                        '<CurrencyExponent>2</CurrencyExponent>'.
                        '<CardSecVal>213</CardSecVal>'.         
                        '<AVSzip>33408</AVSzip>'.
                        '<AVSaddress1>test address</AVSaddress1>'.
                        '<AVScity>miami</AVScity>'.
                        '<AVSstate>FL</AVSstate>'.
                        '<AVSphoneNum>5618926384</AVSphoneNum>'.
                        '<AVSname>Raj Malahotra</AVSname>'.
                        '<AVScountryCode>US</AVScountryCode>'.
                        '<AVSDestzip>33408</AVSDestzip>'.
                        '<AVSDestaddress1>Dest addresss</AVSDestaddres
+s1>'.
                        '<AVSDestcity>testcity</AVSDestcity>'.
                        '<AVSDeststate>FL</AVSDeststate>'.
                        '<AVSDestname>Raj Malahotra</AVSDestname>'.
                        '<AVSDestcountryCode>US</AVSDestcountryCode>'.
                        '<CustomerProfileFromOrderInd>A</CustomerProfi
+leFromOrderInd>'.                        
                        '<OrderID>091933208935</OrderID>'.
                        '<Amount>1500</Amount>'.
                        '<BMLShippingCost>1500</BMLShippingCost>'.    
+ 
                        '<BMLTNCVersion>5</BMLTNCVersion>'.           
+             
                      '</NewOrder>'.
                '</Request>'; 



my $MIME_Version = '1.1';             
my  $content_type = 'application/PTI42';          
my  $content_length = length($xmlRequest);                     
my $content_transfer_encoding = 'text';
my $request_number = '1';         
my $document_type = 'Request';


my $header = HTTP::Headers->new;

$header->header (            
            'MIME-Version'                => $MIME_Version, 
            'Content-Type'                => $content_type,
            'Content-length'            => $content_length,           
+   
            'Content-transfer-encoding'    => $content_transfer_encodi
+ng,  
            'Request-number'            => $request_number,
            'Document-type'                => $document_type,         
+   
            );



my $fix_headres =  'POST /AUTHORIZE HTTP/1.1' . "\r\n" . $header;
my $HTTP_req = HTTP::Request->new($method,$uri,$header,$xmlRequest) ;
my $UserAgent = LWP::UserAgent->new();
#$ENV{HTTPS_PROXY} = '192.168.9.10:443';
$UserAgent->env_proxy;
my $host_response = $UserAgent->request($HTTP_req);

print STDERR "\n=========   headers   ========  \n" . Dumper($header);
+ 
print STDERR "\n=========   request   ========  \n" . Dumper($HTTP_req
+);
print STDERR "\n=========   response   ========  \n" . Dumper($host_re
+sponse); 



__END__
[download]

Firstly, please use <readmore> tags when you post large amounts of code.

I was getiint the following errors

1.Not proxied and

Please read the Crypt::SSLeay documentation.

Don't use LWP's env_proxy method, it doesn't work properly in all situations with HTTPS. Set the HTTPS_PROXY variable in the environment, Crypt::SSLeay will pick up on it and use the appropriate arguments to the SSL connect() method. You may also need to set the HTTPS_PROXY_USERNAME and HTTPS_PROXY_PASSWORD variables (if the proxy requires basic authentication).

2.peer certificate is not varified
And fact is that Client is saying that if you are having SSL implementation to connect to thier gateway it will not ask for certificae.

So does the server require peer certificate authentication or not?

If it does, you'll need to set the HTTPS_CERT_FILE and HTTPS_KEY_FILE environment variables, so that Crypt::SSLeay will know where to look for those files.

Can you please look at the following code.

I have no idea what you're doing with all that header manipulation... can I presume that the payment gateway documentation prescribes those actions?

-David