Hi clinton, following is the code snippet that I am using to get the SSL connection. 

use strict;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request;
use Net::SSLeay qw(get_https post_https sslcat make_headers make_form)
+;

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

## This is the fake request we are generating 
my $xmlRequest = '<Request>'.
                      '<NewOrder>'.
                        '<MessageType>A</MessageType>'.
                        '<BIN>000002</BIN>'.                
                        '<TerminalID>001</TerminalID>'.
                        '<AVSzip>33333</AVSzip>'.
                      '</NewOrder>'.
                '</Request>'; 

my ($page, $response, %reply_headers);

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


my $headers = make_headers(
                        'MIME-Version'                => $MIME_Version
+, 
                        'Content-Type'                => $content_type
+,
                        'Content-length'            => $content_length
+,                          
                        'Content-transfer-encoding'    => $content_tra
+nsfer_encoding,  
                        'Request-number'            => $request_number
+,
                        'Document-type'                => $document_ty
+pe,                        
                        );


($page, $response, %reply_headers) = post_https(
                $host,
                443,
                $uri,
                $headers,
                $xmlRequest,
                );


print STDERR "\n=========   page   ========  \n" . Dumper($page); 
print STDERR "\n=========   response   ========  \n" . Dumper($respons
+e); 
print STDERR "\n=========   reply_headers   ========  \n" . Dumper(%re
+ply_headers); 

__END__

OUTPUT FOR ABOVE REQUEST IS =====> :

=========   page   ========
$VAR1 = '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>413 Request Entity Too Large</title>
</head>
<body>
<h1>Request Entity Too Large</h1>
The requested resource<br/>/authorize<br/>
does not allow request data with POST requests,
or the amount of data provided in
the request exceeds the capacity limit.
<p>
Additionally, a 413 Request Entity Too Large
error was encountered while trying to use an ErrorDocument to handle t
+he request.
</p>
</body>
</html>
';

=========   response   ========
$VAR1 = 'HTTP/1.1 413 Request Entity Too Large';

=========   reply_headers   ========
$VAR1 = 'CONTENT-TYPE';
$VAR2 = 'text/html; charset=iso-8859-1';
$VAR3 = 'DATE';
$VAR4 = 'Mon, 27 Aug 2007 06:11:29 GMT';
$VAR5 = 'CONNECTION';
$VAR6 = 'close';

[download]
I am not sure if there is problem in my coding or else from the server side requirment. When I remove the conent-length tag from header request request seems to hit the server and generates the definate error(as given). Please suggest where I am missing or else what I should go for to get the working SSL connection. Thanks , SHAM...

In reply to Re^2: Content-Length for HTTP Header. by Sham
in thread Content-Length for HTTP Header. by Sham

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.