Select Code to Download

use strict;
use CGI;
use WWW::Search;
...
   print qq{<P><A HREF="http://mogana/index.htm">Search Again!</A>};
   print $q->end_html;
}

use strict;
use WWW::Search;
my $Search = new WWW::Search();
...
while (my $Result = $Search->next_result()) { 
   print $Result->url, "\n";
}