use Net::Netmask;

$block=Net::Netmask->new("85.17.201.168-85.17.201.185");

//print("Network can hold ",$block->size()," IP addresses\n");
print("Host 5   is IP ",$block->nth(5),"\n");
print("Host 343 is IP ",$block->nth(343),"\n");