#!/usr/bin/perl

use Net::IP;

# Other bullshit we need to get the right layout
$rack = "GP06";
$dc = "EVO";
$vlan = "VLAN48";

$range_start = "85.17.200.41";
$range_end   = "85.17.200.57";
$range = "$range_start - $range_end";

my $ip = new Net::IP ($range) || die;

do {
  print $ip->ip(), " CIS-$dc-$vlan-DHCP\n";
} while (++$ip);

print "Switch: $dc-$rack-1 \n";
print "RDNS: $rack-1.evo.ams.nl.leaseweb.net\n";
