Perl script for data files on bind

#PERL



$sayi = 0;











while ($sayi <64) { open (IN ,">85.29.$sayi.rev");



print IN<


$TTL 86400







@ IN SOA ns1.tellcom.com.tr. system.tellcom.com.tr. (



2007120101;



28800;



7200;



604800;



86400;



)







IN NS ns1.tellcom.com.tr.



IN NS ns2.tellcom.com.tr.







$GENERATE 1-255 $ PTR asy$.asy$sayi.tellcom.com.tr.







EOF







$sayi++;



}