my $req = HTTP::Request::StreamingUpload->new(
	PUT => "https://$server", 
	callback => sub { shift @chunk },
	headers => HTTP::Headers->new(
		'Content-Type' => 'application/binary',
		'Content-Length' => 9,
		'Accept' => 's',
	),
);
my $res = $ua->request($req);