#!/usr/bin/perl

use strict;
use File::Find;
use FileHandle;

my $base    = "/chroot/named/master";
my $out     = "/var/tmp/current_list";



find(\&wanted, $base);

sub wanted {
   return unless ( -f "$File::Find::name" and $File::Find::name !~ m!/in-addr/! );

   my $name  = "$File::Find::name";
   my $zone  = new FileHandle "$name", "r";
   my $out   = join('.', ( split('/', $name) )[4..7]);
   print "$out\n";
}