Netsol

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

#!/usr/bin/perl
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');