Select Code to Download

use NetAddr::IP;
my $ip = new NetAddr::IP '127.0.0.1';

use NetAddr::IP;
my $loopback = new NetAddr::IP '127.0.0.1', '255.0.0.0';
my $rfc1918 = new NetAddr::IP '10.0.0.0/8';
my $another = new NetAddr::IP '1.2.0.0/255.255.0.0';
my $loopback2 = new NetAddr::IP 'loopback';

use NetAddr::IP;
my $ip = new NetAddr::IP('10.0.0.0/30');
...
  print "ip = $ip\n";
  $ip ++;
}

ip = 10.0.0.0/30
ip = 10.0.0.1/30
ip = 10.0.0.2/30

use NetAddr::IP;
my $ip = new NetAddr::IP('10.0.0.0/30');
print join(' ', @$ip), "\n";

10.0.0.1/32 10.0.0.2/32

use NetAddr::IP;

...
10.0.64.0/18
10.0.192.0/18
10.0.160.0/19

use NetAddr::IP;

print "My address space contains the following /24s:\n", 
    join("\n", NetAddr::IP->new('10.0.0.0/22')->split(24)), "\n";

use NetAddr::IP;

print join(' ', NetAddr::IP->new('10.0.0.0/25')->wildcard());

use NetAddr::IP;

...
10.128.0.41
10.128.0.17
10.128.0.19

use NetAddr::IP;

...
__DATA__
10.0.0.0/16
172.16.0.0/24

use NetAddr::IP;

...
__DATA__
10.0.0.0/16
172.16.0.0/24

use NetAddr::IP;

...
__DATA__
10.0.0.0/16
172.16.0.0/24