my ($host,$ip,$type) = @_;
my @adr = split /\./,$ip;
my $revZone = "$adr[3]$adr[2].$adr[1].$adr[0].in-addr.arpa.";
my $completeHostString = "$host.$DnsDomain.";

my $update = Net::DNS::Update->new($DnsDomain);
$update->push("pre", nxrrset("$revZone $type $completeHostString"));
$update->push("update", rr_add("$revZone 86400 IN $type $completeHostString"));

my $res = Net::DNS::Resolver->new;
$res->nameservers($DnsServer);
my $reply = $res->send($update);