Select Code to Download

use Socket;

...
  my $bits = 32 - ($block =~ tr/#/0/);
  print inet_ntoa(pack("B*", $block)),"/$bits\n";
}

--- nm3b.out    Thu Oct 11 21:54:06 2001
+++ nm3b.xx     Sat Oct 13 00:08:51 2001
...
+5.4.3.0/31
 6.6.6.0/27
 6.6.7.0/26

101.33.45.27/30
101.33.34.0/24

use Socket;

...
  my $bits = 32 - ($block =~ tr/#/0/);
  print inet_ntoa(pack("B*", $block)),"/$bits\n";
}