Вы не правы (или я :-)
Content-Type:... это уже ответ. В файле записан сначала весь запрос потом \n\n\n потом весь ответ
Ну вот код весь на perl
Код:
use LWP::UserAgent;
use HTTP::Request::Common;
$Url = 'http://xxxxxxxxxxxxxxxxx';
$UsAg = new LWP::UserAgent;
$UsAg->agent('Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; AIRF)');
$Resp = $UsAg->request(POST $Url,
'Accept-Language' => 'ru',
Content => [x => 'привет']);
open D, '>1-1.txt'; binmode D; print D $Resp->request->as_string . "\n\n\n" . $Resp->as_string; close D;
$UsAg = new LWP::UserAgent;
$Resp = $UsAg->request(POST $Url,
'Accept-Language' => 'ru',
Content => [x => 'привет']);
open D, '>1-2.txt'; binmode D; print D $Resp->request->as_string . "\n\n\n" . $Resp->as_string; close D;