#!/usr/bin/perl

usr NetAddr::IP;

for my $cidr( @cidr ) {
    print "$cidr\n";
    my $n = NetAddr::IP->new( $cidr );
    for my $ip( @{$n->hostenumref} ) {
        print "\t", $ip->addr, "\n";
    }
}
