****************************************
#Open a file
open(MYFILE,"c:\\perl\\Files\\zones2add.txt") ||
	die("Cannot open file");
#open(MYOUT,">c:\\perl\\Files\\myout.txt");

while(<MYFILE>)
{
	print "tdnscmd \. /recordadd $_  www a 12.39.123.78\n";
}


# close the file
close MYFILE;
***********************************
Input file:
Aedonstaffing.biz
Aedonstaffing.info
Aedonstaffing.net
Aedonstaffing.org
**************************
output

tdnscmd . /recordadd Aedonstaffing.biz
  www a 12.39.123.78
tdnscmd . /recordadd Aedonstaffing.info
  www a 12.39.123.78
tdnscmd . /recordadd Aedonstaffing.net
  www a 12.39.123.78
tdnscmd . /recordadd Aedonstaffing.org
  www a 12.39.123.78
*********************************

##</code><code>##

tdnscmd . /recordadd Aedonstaffing.org www a 12.39.123.78