Select Code to Download

my $ua = LWP::UserAgent->new;
my $h = HTTP::Headers->new;
...
);
print $GetReq->as_string;
my $resp = $ua->request($GetReq);

PUT http://localhost:8000/user/
Accept: text/json
User-Agent: libwww-perl/5.831
Content-Type: text/json

PUT http://localhost:8000/user/ HTTP/1.1
Accept: text/x-json
Content-Type: text/x-json