Добрый день.

Есть список диаппазона ip адресов.
213.181.18.120 - 213.181.18.251

Нужно получить список сетей

213.181.18.120     255.255.255.248
213.181.18.128     255.255.255.192
213.181.18.192     255.255.255.224
213.181.18.224     255.255.255.240
213.181.18.240     255.255.255.248
213.181.18.248     255.255.255.252

Есть калькулятр например тут http://ipcalc.dewil.ru/
Хотелось бы узнать как или спомощью каких модулей на perl  можно получить такой список?