Netsol

A response to the slashdot article about Network solutions registering every domain checked:

use LWP::UserAgent; my $domains; my @chars = (a .. z, 0 .. 9, '-'); my $len = int(rand(64)); foreach (0 .. $len) { $domains .= $chars[int(rand(scalar(@chars)))]; } my $ua = LWP::UserAgent->new; my $res = $ua->post('http://www.networksolutions.com/domainSearch.do',{   'domainNames' => $domains,    'TLDs' => '.com',    'method-submit' => '',    'Search' => '/domain-name-registration/domain-name-search-results.jsp',    'allowBulk' => 'false',    'currentPage' => '/home.jsp?layoutIdIndex=1',    'formTargetPage' => '/domain-name-registration/index.jsp', }); system('nslookup', $domains.'.com');
 * 1) !/usr/bin/perl
 * 2) give me cred ...