There are Net::RRP files. See RFC 2832 for more details.

There are Net::RRP files. See RFC 2832 for more details.

use IO::Socket::SSL;
my $socket = new IO::Socket::SSL ( ... );
my $protocol = new Net::RRP::Protocol ( socket => $socket );

my $request = new Net::RRP::Request::Add();
my $entity = new Net::RRP::Entity::Domain();

$entity->setAttribute ( 'DomainName' => 'test.ru' );
$entity->setAttribute ( 'NameServer' => [ 'ns1.test.ru', 'ns2.test.ru' ] );

$request->setEntity ( $entity );
$request->setOption ( Period => 10 );

$protocol->sendRequest ( $request );
my $response = $protocol->getResponse ();

die unless $request->isSuccessResponse ( $response );