Wow, I'd just sat down to write the same script, and a search for an example of the Net::DNS::Resolver led me here. I had to make one small change because of a small difference in the formatting of my named.conf...

  # match <<zone "perlmonks.org" {>>
  if (m/^zone\s+\"([a-z0-9._\-]+)\"\s+/i) {
[download]

I don't say 'zone "perlmonks.org" in {'... I leave out the 'in'. I'm sure there's a way to make it optional in the regex, but I'm no perl wizard - I was just happy to get it working.

I hope this helps someone!

Thanks for the cool script.