Select Code to Download

# for 192.168.*.*
my @netmask_a = qw ( 255 255 0 0 );
...
$addr ^= $sample;
# Dotted quad form:
my $dottedaddr = join(".", unpack("C*", pack("N", $addr)));

sub rand_addr ($$) {
  my ($netmask, $code) = @_;
...
my @newaddrlist =
  map { join(".", unpack("C*", pack("N",$_))) }
  map { rand_addr($netmask,$sample); } ( 1 .. 5678 );

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/