Select Code to Download

use Socket qw( inet_aton inet_ntoa );

...
my $new = $next++;

print(to_dotted($new), "\n");