#!/usr/bin/perl -w
# Ultimately this script will calculate a list of IPv6 ip's within the specified
# range of elements. Useful for DNS generation.
use strict;
# for starters, we will simply output a list of ip's from a single /64 subnet
# starting at 0000 and ending at ffff
my $prefix = "3ffe:b80:d92";
my $subnetlen = "/64";
my $firstsubnet = "0000";
my $finalsubnet = "ffff";
print "$prefix" . "\:\:" . "\/48\n";
#my $x = 0;
#for($x = 0; $x < 10; $x++) {
# print "yada $x\n";
#}
for($firstsubnet = 0000; $firstsubnet < 10000; $firstsubnet++) {
print "$prefix" . "\:" . "$firstsubnet" . "\:\:" . "\/64\n";
}