print(format_ipv4, $/)
   for ($first+1 .. $broadcast-1);

##</code><code>##

print format_ip4($_);
print $/;