#!/usr/bin/perl
use strict;
use warnings;

foreach my $v4_net (0..127){
	print <<LOLZ;
domain:		$v4_net.216.151.in-addr.arpa
descr:		TG13 reverse
admin-c:	MH12373-RIPE
nserver:	winix.tg13.gathering.org
nserver:	tress90.tg13.gathering.org
tech-c:		MH12373-RIPE
zone-c:		MH12373-RIPE
mnt-by:		TG2013-MNT
changed:	ola\@nordmann.no 20130323
source:		RIPE
password:	asdf

LOLZ

}

print <<LOLZ;
domain:		2.0.d.e.2.0.a.2.ip6.arpa
descr:		TG13 reverse
admin-c:	MH12373-RIPE
nserver:	winix.tg13.gathering.org
nserver:	tress90.tg13.gathering.org
tech-c:		MH12373-RIPE
zone-c:		MH12373-RIPE
mnt-by:		TG2013-MNT
changed:	ola\@nordmann.no 20130323
source:		RIPE
password:	asdf

LOLZ