Process a single field file

[Clayton Winter]

Hi very new to perl... am getting some books asap.

I am writing a script to create named.conf records from  a single field 
text file

eg, domain.fle
domain1.com
domain2.net
domain3.org

and then create a named.conf entry from;

$namedconf="/etc/namedb/named.conf" ;
$namednow="/etc/namedb/named.conf.$now" ;
$namedtmp="/etc/namedb/named.conf.tmp" ;

unless (-e $namedconf) { die "$namedconf does not exist!" }

open (NAMEDNOW, "> $namednow") || die "Cannot open $namedtmp for 
writing\n\n" ;
open (NAMED, $namedconf) || die "Cannot open $namedconf for reading\n\n" ;
Lock::wlock(NAMED);

while (<NAMED>) {
if ((/nextprimary/) && ($domaintype eq "primary")) {
print NAMEDNOW <<ENUF;

zone "$domainname" {
         type master;
        allow-query { any; } ;
         file "zones/$domainname";
};

ENUF

Newbie please be gentle...