>perl -MLWP::UserAgent -MHTTP::Request::Common -e "$ua=LWP::UserAgent->new(); 
    req= POST 'http://localhost:1234', 'Content-type'    => 'application/json;odata=verbose', Content => { foo => 'bar' }; 
    $ua->add_handler('request_send',sub{shift->dump;return}); $ua->request($req)"
POST http://localhost:1234
User-Agent: libwww-perl/6.04
Content-Length: 7
Content-Type: application/json;odata=verbose

foo=bar