#!/usr/bin/perl my @zones = qw( bonmot.ca paradisecinema.ca paradisetheatre.ca solarns.ca wayves.ca 180.75.192.in-addr.arpa 181.75.192.in-addr.arpa 182.75.192.in-addr.arpa ) ; $masters = "216.83.3.92"; foreach (@zones) { $rev = join(".",reverse split(/\./,$_)) ; print "zone \"$_\" in{\n" . " type slave;\n" . " file \"$rev\";\n" . " masters { $masters; };\n" . " } ;\n" . "//\n" ; } ;