use LWP::UserAgent;
use HTTP::Cookies;
use Net::SSLeay;
use MIME::Base64;

my ($page, $result, %headers) =
     Net::SSLeay::post_https('$server', 443, '$url',
          Net::SSLeay::make_headers(
               Authorization => 'Basic ' . MIME::Base64::encode_base64("$user:$pasword",''),
               Cookie => "x-main=YvjPkwfntqDKun0QEmVRPcTTZDMe?Tn?",
               Content-Type => "text/xml"),
          content_file => ["test.txt"]);

print "Page: $page\n";
print "Result: $result\n";