Select Code to Download

#!/usr/bin/perl -w
use Modern::Perl;
...
    print "$_\n" for cidr2octets($_);
}
__END__

$ unpack-cidr.pl < packed-cidr > unpacked-cidr