#! Perl\bin\perl;

use WWW::Search; 



my $language_code="l=pl";

$query = "Telewizja Polska";

 $search = new WWW::Search('AlltheWeb', restrict => $language_code); 
 $search->native_query(WWW::Search::escape_query($query)); $search->maximum_to_retrieve(100);
 
  while (my $result = $search->next_result()) {

$url = $result->url; $title = $result->title; $desc = $result->description;


print $result->url, "\n";
    

print "<a href=$url>$title</a> $source<br>$date<br>$desc<p>\n";

}