I am trying to do a search via the www::search module using alltheweb as the search engine however I am trying to do the search in polish, which the option for the polish language is specified as l=pl in the query string ie the full query string using alltheweb is

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&c
+s=utf8&wf%5Bn%5D=3&wf%5B0%5D%5Br%5D=%2B&wf%5B0%5D%5Bq%5D=&wf%5B0%5D%5
+Bw%5D=&wf%5B1%5D%5Br%5D=%2B&wf%5B1%5D%5Bq%5D=&wf%5B1%5D%5Bw%5D=&wf%5B
+2%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
[download]

however the query doesn't go through. I am somewhat confused as to how to implement the l=pl restriction having a look at the google api the equivalent which I have drawn my inspiration from I think would be something like:

my $search = WWW::Search->new('Google', key => $key, restrict => $lang
+uage_code);
[download]

where $language_code = "lang_pl"; Here so far is my 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->ma
+ximum_to_retrieve(100);
 
  while (my $result = $search->next_result()) {

$url = $result->url; $title = $result->title; $desc = $result->descrip
+tion;


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

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

}
[download]

Edit: g0n - code tags round long url