my $ua = LWP::UserAgent->new;
my $h = HTTP::Headers->new;
$h->header('Content-Type' => 'text/x-json', Accept=>'text/x-json');
my $GetReq = HTTP::Request->new(
	'PUT',
	'http://localhost:8000/user/',
	$h,
);
print $GetReq->as_string;
my $resp = $ua->request($GetReq);