#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new(agent => 'Opera/9.80');
my $cookie_jar = HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);

my $site="http://site/forum";

my $RREQ = POST $site,
'Content_Type' => 'multipart/form-data',
'Content'      => [
'id'           => '8000',
'DO'           => '13',
'A'            => '0',
'B'            => '0',
                ];
my $FF=$ua->request($RREQ);

############
Вывод такой
############

--xYzZY
Content-Disposition: form-data; name="id"

8000
--xYzZY
Content-Disposition: form-data; name="DO"

13
--xYzZY
Content-Disposition: form-data; name="A"

0
--xYzZY
Content-Disposition: form-data; name="B"

0
--xYzZY--

############################################
На сайте запрос такой как я уже писал..
############################################

Content-Disposition: form-data; name="id"

8000
-----------------------------98942870323811
Content-Disposition: form-data; name="DO"

13
-----------------------------98942870323811
Content-Disposition: form-data; name="A"

0
-----------------------------98942870323811
Content-Disposition: form-data; name="B"

0
-----------------------------98942870323811--

###############################################
нужно парсить и подставлять 98942870323811 ??? как это сделать?)
и почему --------------- они длинные такие)
а у меня -- всего лишь
#######################