У мя вот такой скрипт... #!/usr/bin/perl use Net::Netmask; @ip_mask = qw(192.168.2.22/255.255.255.192 192.168.2.100/255.255.255.192); @ip = map { new Net::Netmask($_)->enumerate() } @ip_mask; Но на Netmask у мяругается вот так Can't locate Net/Netmask.pm in @INC (@INC contains: /usr/local/lib/perl5/5.8.8/BSDPAN /usr/local/lib/perl5/site_perl/5.8.8/mach /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.8.8/mach /usr/local/lib/perl5/5.8.8 .) at /tmp/perl line 2. И еще, подскажите как можно нагенерить кучу адресов из заданных подсетей\маск, может есть хороший пример у кого-нибуть?)