#!/usr/bin/perl  
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;  

$ua = new LWP::UserAgent;  
$ua->agent("DarkSpell/6.0");  # the so-called "browser string"
$ua->proxy(['gopher','http','security','ftp'], 'http://127.0.0.1:8080');
$url = 'http://www.networksolutions.com/cgi-bin/whois/whois';
$name = 'STRING'; 
$query = 'General Motors' ;
$request = POST $url, [$name => $query];
$request->header('Accept' => 'text/html'); 
$response = $ua->request($request); 
if (!$response->is_success) {  
  print "Uh-oh! Came up empty\n"; 
}  
else {  
  $list = $response->content;
  $list =~ s#.*&<pre>(.*)</pre>.*#$1#sg;
  @lines = split(/\n/, $list);
  foreach (@lines) {
    if ( /\s*([\w-]*\.\w{3,3})/) {
      print "$1\n";
    }
  }
}