#! Perl\bin\perl -w

use WWW::Search;


open FILE1, "> url1.txt" or die "$!";

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

my $sQuery = WWW::Search::escape_query("world cup 2006");

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