#!/usr/bin/perl -Tw
# [MJS 22 Oct 2001] List IANA Reserved ranges (for firewall purposes)
# [MJS  3 Mar 2008] IANA reformated document to use /8s and not ranges

use strict;
use LWP;

#
# Download Official IANA document
#
my $ua  = new LWP::UserAgent;
my $res = $ua->get('http://www.iana.org/assignments/ipv4-address-space');
$res->is_success or die "HTTP request failed: " . $res->message . "\n";

#
# Print all the /8s.
#
print map { "$_\n" }
    $res->content =~ m{ ( \d{3} \/ 8 ) .+? (?: UNALLOCATED | RESERVED ) }gx;

# $Id: list-iana-reserved-ranges,v 1.2 2008/05/17 07:00:42 suter Exp $