or download this
#!perl
use strict;
...
my $num = scalar@{[grep $_ !~ $skiprx, keys %$hr]};
print "\n",(join '::',@cur_names or 'CPAN'),($$hr{'+'}->[0] ? "\t$
+$hr{'+'}->[0]\t$$hr{'+'}->[1]" : "")," contains ",$num," namespace".(
+$num>1?'s':'')."\n\n";
}