#!/usr/bin/perl

use strict;
use warnings;
use Net::DNS;
use Net::DNS::ZoneFile;

my $rrset = Net::DNS::ZoneFile->readfh(*DATA);

print "Just read:\n";
print $_->string, "\n" for @$rrset;
push @$rrset, new Net::DNS::RR "3 7200 IN PTR gov.ph.";

foreach (@$rrset)
{
    next unless $_->type eq 'SOA' and $_->class eq 'IN';
    $_->serial($_->serial + 1);
}

print "After adding one to the SOA's serial:\n";
print $_->string, "\n" for @$rrset;

__DATA__
; Sta. Magdalena, Sorsogon
; Created by GovPh: Fri Aug  6 13:02:54 2004
stamagdalena IN NS ncc.xx.gov.ph
             IN NS ncc.xx.gov.ph