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