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

my $method = 'POST';
my $host = 'orbital1.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>102009</Exp>'.
						'<CurrencyCode>840</CurrencyCode>'.
						'<CurrencyExponent>2</CurrencyExponent>'.
						'<CardSecVal>213</CardSecVal>'.		 
						'<AVSzip>33408</AVSzip>'.
						'<AVSaddress1>test address</AVSaddress1>'.
						'<AVScity>miami</AVScity>'.
						'<AVSstate>Florida</AVSstate>'.
						'<AVSphoneNum>5618926384</AVSphoneNum>'.
						'<AVSname>Raj Malahotra</AVSname>'.
						'<AVScountryCode>US</AVScountryCode>'.
						'<AVSDestzip>33408</AVSDestzip>'.
						'<AVSDestaddress1>Dest addresss</AVSDestaddress1>'.
						'<AVSDestcity>testcity</AVSDestcity>'.
						'<AVSDeststate>Florida</AVSDeststate>'.
						'<AVSDestname>Raj Malahotra</AVSDestname>'.
						'<AVSDestcountryCode>US</AVSDestcountryCode>'.
						'<CustomerProfileFromOrderInd>A</CustomerProfileFromOrderInd>'.						
					    '<OrderID>091933208935</OrderID>'.
						'<Amount>15.00</Amount>'.
						'<BMLShippingCost>15.00</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_encoding,  
			'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();
#$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_response); 



__END__