sub postXML {

    my $self = shift;

    my $finalXML = $self->getFinalXML();

    my $POST_URL = $self->getProcessingURL();

#    print $finalXML, "\n";

#    use Net::SSLeay;
#    my ($page, $response, %reply_headers) =
#        Net::SSLeay::post_https(
#            'secdev.sslsite.com',
#            11800,
#            '',
#            Net::SSLeay::make_headers('Content-type' => 'application/x-www-form-urlencoded'),
#            Net::SSLeay::make_form(CLRCMRC_XML => "$finalXML")
#        );

#    print 'Response: ', $response, "\n";
#    print 'Page: ', $page, "\n";

    use LWP::UserAgent;
    my $userAgentObject = LWP::UserAgent->new();
    $userAgentObject->agent("ClearCommerce::XML::POST/0.1");

    use HTTP::Request;
    my $postRequestObject = HTTP::Request->new(POST => $POST_URL);
    $postRequestObject->content_type('application/x-multipart-form-data');
    $postRequestObject->content("CLRCMRC_XML=$finalXML");

    print 'Posting to ', $self->{processingURL}, " the following:\n";
    print $finalXML, "\n";

    my $postRequestResponseObject = $userAgentObject->request($postRequestObject);

    print $userAgentObject->request($postRequestObject)->content();

    if ($postRequestResponseObject->is_success) {
        print $postRequestResponseObject->content(), "\n";
    }
    else {
        print "Bad Request.\n";
    }

}