LWP::UserAgent cookie problem

i get a error where it says does not seem to contain cookies


i am trying to do a search on 50 results instead of the 15 msn does it on. when i change the resuts to 50 it saves it as a cookie and not in the url line. So how would i send a request to get the source code for resluts of 1-50 not just 1-15

here is the cookie that it saves and the co=50 is the number of results



msnsrchnosp=0&co=50&RS=1search.msn.com/085208755229619988313043364829546562*


#!/usr/local/bin/perl -w

use LWP::UserAgent;




@keyword=( "map", "maps", "usa+maps", "county+maps", "us+regional+maps", "us+regional+map", "us+map", "us+maps", "state+maps", "map+of+the+us", "zip+code+maps", "city+maps", "census+tracts", "custom+maps", "town+map", "zip+code+map", "radius+map", "radius+maps");


#market map part
print  "*******  MARKET MAPS!!!!!!!   *******  \n \n";
open FILE, ">>key.txt";
print FILE "*******  msn!!!!!!!   *******  \n \n";
print FILE "*******  MARKET MAPS!!!!!!!   *******  \n \n";
close FILE;

#1-50
foreach $element (@keyword)
{
  $count=0;

  print $element;
  print "*******  MARKET MAPS!!!!!!!   *******  \n \n";
  $cookie_jar = HTTP::Cookies->new(file => 'tsearch.txt');
  $user_agent=new LWP::UserAgent;
  $request= new HTTP::Request('GET',

"http://search.msn.com/results.asp?q=$element&origq=market%2Bmaps&RS=CHECKED&FORM=SMCRT&v=1&cfg=SMCINITIAL&nosp=0&thr=");
 
 
  $cookie_jar->add_cookie_header($request);
   
  $user_agent->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.1) Gecko/20020826');
  $request->header('Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword,

application/vnd.ms-powerpoint, */*');
  $request->header('Accept-Language' => 'en;q=1.0');
  $cookie_jar->extract_cookies($response);
 
  $user_agent->cookie_jar($cookie_jar);
 
 $textd=$cookie_jar->as_string();
print $textd;
 
  $response=$user_agent->request($request);                    
  $content=$response->{_content};  
 

 while($content=~ /<span class="clsResultURL"><i>(.*?)<\/i>/sg)
  {
    $count=$count+1;
    if($1=~ /market.*?maps.*?\.com/s)
    {

      open FILE, ">>key.txt";
      print FILE "keyword: $element \n";
      print FILE "rank: $count \n";
      close FILE;

      last;
    }  
  }


 
 
}