my $search = new WWW::Search ('AltaVista');
     $search->maximum_to_retrieve(10);
     $search->native_query
(WWW::Search::escape_query($word));

while ( $results = $search->next_result()) {
    $n++;
         print $q->a({href=>$results->url},
$results->url);