LWP для конфигурации не своего dns

[CISCO]

нужно сделать запрос чтобы добавть A запись в ДНС Primary NS :: Logon Page

#!/usr/bin/perl
#use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP;
my $ua = LWP::UserAgent->new(agent=>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)',timeout=>'20',keep_alive =>'7');
$ua->default_headers->push_header('Accept-Language' => "no, en");
my $cookie_jar = HTTP::Cookies ->new(file => 'cookies.txt',autosave => 1,
ignore_discard=>1 #важно !!!
, );
$ua ->cookie_jar($cookie_jar);
my ($url,$response);
my $login='';
my $pass = '';
#my $domen ='рилм-королевство';
my $domen='http://primaryns.kiev.ua';
$url = 'http://primaryns.kiev.ua/logon.php';
$response=$ua->request(POST $url,
{ user => $login,
pwd => $pass,
});
$cookie_jar->extract_cookies($response);
$cookie_jar->save('cookies.txt');
my $hdrs=HTTP::Headers->new('Accept'=>'text/plain','UserAgent'=>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
my $reqG=HTTP::Request->new('GET',$domen,$hdrs);
$cookie_jar->add_cookie_header($reqG);
$response=$ua->request($reqG);
print "Content-type: text/html\n\n";
print $response->as_string;
$namea='wwwwww8';
$selecta='A';
$aip='19.';
$zonename='';
$lnum='99';
$updating='';
$url = 'http://primaryns.kiev.ua/edit.php';
$response=$ua->request(POST $url,
{ f1 => $namea,
f2 => $selecta,
f4 => $aip,
zone => $zonename,
lnum => $lnum,
sval => $updating,
});


$url = 'http://primaryns.kiev.ua/zonelist.php';
$zoneupdating='';
$response=$ua->request(POST $url,
{ zone => $zoneupdating,
});

скрипт работает в 3 этапа:
1) заходим под логином и паролем который там есть и сохраняем куки
2) добавляем запись ( в конфиге стркоа)
3) обновляем
$aip - ip который вносим
$namea='wwwwww8' - сама запись

так можно для другого днс сделтаь
внимательно нужно посмотреть на html тэги которых параметры передаються в скрипты