Быстрая проверка IP на принадлежность к сети на Perl

Часто возникает задача - проверить IP на принадлежность определенным диапазонам IP адресов, это довольно легко (особенно на Debian!). 

Тут нам поможет чудо модуль:

apt-get install -y libnet-cidr-lite-perl

Вот простенький пример, показывающий его использование:

#!/usr/bin/perl
use strict;
use warnings;
use Net::CIDR::Lite;
my @subnets = ('10.0.0.1/24', '192.168.1.1/24');

my $cidr = Net::CIDR::Lite->new( @subnets  );
print "159:" . $cidr->find('159.21.22.33');
print "10:" . $cidr->find('10.0.0.4'); 

Аналогичный код на Python: http://www.stableit.ru/2011/06/ip-python_16.html