use File::Find::Rule;
use Data::Dumper;

my $rule = File::Find::Rule->new;
$rule->file;
$rule->name( '*.zone' );
my @files = $rule->in("/home/dns");