$uri = "HTTPS://$host:$port/path";
$ua = new LWP::UserAgent;
$h = new HTTP::Headers;
$h->header('Authorization' => "Basic $authinfo");

$request = new HTTP::Request('POST', $uri, $h, $content);

$ua->credentials("$host:$port",'realm2',$userid,$password);
$response = $ua->request($request); 
print $response->status_line; 
print $response->as_string;