#! usr/bin/perl 

use strict;
use warnings;
use WWW::Search;


my $oSearch = new WWW::Search('Yahoo::UK');





my $sQuery = WWW::Search::escape_query("spiderman 3 news");

$oSearch->native_query($sQuery);
  
while ( my $oResult = $oSearch->next_result() ) { 
	
    print "Adding: ", $oResult->url, "\n";
    
    }
print ref($oSearch);