#!/usr/bin/perl

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

$ua->get('http://site/script')->content;
my $request = HTTP::Request->new();
$request=$ua->request(POST 'http://site.ru/script',

Content_Type    => 'multipart/form-data',
Content => [
'id'               => "a812a878",
'DO'               => '1',
'A'                => '0',
'B'                => '0',])->as_string;