#! /usr/bin/perl -w

open ( HOSTFILES, "</var/named/hostfiles" ) or die "cant open file\n";

while (<HOSTFILES>) {
   chomp ( $currFile = $_ );
   open ( CURRHOST, ">/var/named/new/$currFile" ) or die "cant open output\n";
   while (<CURRHOST>) {
      chomp ( $currLine = $_ );
      



print "$currFile\n";
};
close HOSTFILES;
