http://www.alltheweb.com/search?advanced=1&cat=web&jsact=&_stype=norm&type=all&q=%22Telewizja+Polska%22&itag=crv&_b_query=&l=pl&ics=utf-8&cs=utf8&wf%5Bn%5D=3&wf%5B0%5D%5Br%5D=%2B&wf%5B0%5D%5Bq%5D=&wf%5B0%5D%5Bw%5D=&wf%5B1%5D%5Br%5D=%2B&wf%5B1%5D%5Bq%5D=&wf%5B1%5D%5Bw%5D=&wf%5B2%5D%5Br%5D=-&wf%5B2%5D%5Bq%5D=&wf%5B2%5D%5Bw%5D=&dincl=&dexcl=&geo=&doctype=&dfr%5Bd%5D=1&dfr%5Bm%5D=1&dfr%5By%5D=1980&dto%5Bd%5D=18&dto%5Bm%5D=1&dto%5By%5D=2006&hits=10&nooc=off


##</code><code>##

my $search = WWW::Search->new('Google', key => $key, restrict => $language_code);


##</code><code>##

#! 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";

}