попытка упрощения кода

столкнулся с неким кодом, который имплементирует итератор по ip адресам:

use IPRange;
my $ip = new IPRange ("254.1.1.1", "254.30.254.254");
while ($ip->next) {
    print $ip->value,"\n";
}

( много кода )