generate reverse zones

generate_rev.pl

@nets = qw(
    x.x.x
    x.x.y
);

$zone = <<EOF;
\$TTL 1800
@ IN SOA ns1.xxx.com.ar. root.xxx.com.ar. 2014111104 10800 3600 604800 1800
@ IN NS ns1.xxx.com.ar.
@ IN NS webmail.xxx.com.ar.
EOF

open REV, ">db.rev.xxx.com.ar";
print REV "$zone";
foreach $rev (@nets) {
        open F, ">db.$rev";
        print F "$zone";
        $ip = join('.', reverse split(/\./, $rev));
        $net = $ip;
        $net =~ tr/./-/;
        foreach $host (0..255) {
                print F "$host 1800 IN PTR host-$host-$net.rev.xxx.com.ar.\n";
                print REV "host-$host-$net 1800 IN A $rev.$host\n";
        }
        close F;
}
close REV;