use strict;
use Data::Dumper;
use DNS::ZoneParse;

my $zonefile = DNS::ZoneParse->new("c:\\domain.zone");


my $a_records = $zonefile->a();



push (@$a_records, { ORIGIN => 'example.com',name => 'testhost', class => 'IN',
                     host => '192.168.0.5', ttl => '1D' },);



print Dumper \$a_records;

$zonefile->new_serial(50);


my $newzone;
open($newzone, '>', "c:\\domain.zone.updated") or die "error";
print $newzone $zonefile->output();
close $newzone;