perl -MCPAN -le \
      'CPAN::Config->load;
       system "netselect", "-vv",
          map { s#^\w+p://([^/]+).*#$1# && $_ || ""}
                      @{ $CPAN::Config->{urllist} } '