use HTTP::Request::Common qw(POST);

  $req = POST 'https://asite.com:443/adir/create_user.cgi', [
			Content => "<User>John.Doe</User>"
		];

  print $req->as_string();