sub postXML { my $self = shift; my $finalXML = $self->getFinalXML(); my $POST_URL = $self->getProcessingURL(); use URI::URL; my $url = URI->new($POST_URL); my $domain = $url->host(); my $port = $url->port(); use Net::SSLeay; my ($page, $response, %reply_headers) = Net::SSLeay::post_https( $domain, $port, '', Net::SSLeay::make_headers( '', # notice 'Content-type' omitted 'User-Agent' => 'ClearCommerce::XML::POST/0.1' ), "CLRCMRC_XML=$finalXML" ); return $page; }