#!/usr/bin/perl -w
# force NOTIFY
# kreator, 2003.

use Socket;
use Net::DNS;

my $dom = "fsb.hr.";
my $server = "161.53.3.7";
my $srcaddr = "161.53.116.12";

my $packet = new Net::DNS::Packet($dom, "SOA", "IN");
my $res = new Net::DNS::Resolver;

($packet->header)->opcode("NS_NOTIFY_OP");
($packet->header)->rd(0);
($packet->header)->aa(1);

$res->nameservers($server);
$res->srcaddr($srcaddr);
$reply = $res->send($packet);

if (defined $reply)
{
  print "Received NOTIFY answer for $dom from ", $reply->answerfrom, "\n";
  $reply->print;
}
else
{
  warn "\$res->send indicates NOTIFY error for $server\n";
}