@URLs = 
("http://search.msn.com/results.asp?q=%s&co=20&RS=CHECKED&FORM=SMCB&ba=0&v=1&un=doc",
 "http://search.msn.com/results.asp?ba=20.0&FORM=SMCB&RS=CHECKED&b=2&q=%s&un=doc&v=1",
 "http://search.msn.com/results.asp?ba=40.0&FORM=SMCB&RS=CHECKED&b=2&q=%s&un=doc&v=1",
 "http://search.msn.com/results.asp?ba=(55.5)0&co=(0.20)10.1.4&FORM=SMCB&RS=CHECKED&b=2&q=%s&un=doc&v=1",
 "http://search.msn.com/results.asp?ba=(55.25)0&co=(0.20)10.1.4&FORM=SMCB&RS=CHECKED&b=2&q=%s&un=doc&v=1");

sub getpage {
  my($page, $search) = @_;
  $page--;
  return $SearchStat::E_RANGE if($page<0 || $page>$#URLs);
  $url = sprintf($URLs[$page], $search);
  $page = &fetch($url);
  return $SearchStat::E_NOTFOUND if $page == $SearchStat::E_NOTFOUND;
  @urls = ();
  return E_RANGE if $page =~ m!Sorry, no matches were found containing <B>.*</B>!is;
  while($page =~ m!<td align='left' COLSPAN=2><A CLASS='clsResultTitle' ID=clsResultTitle HREF="(.*?)">!is) {
    my $url = $1;
    $page =~ s!<td align='left' COLSPAN=2><A CLASS='clsResultTitle' ID=clsResultTitle HREF="(.*?)">!!is;
    @urls=(@urls, $url);
  }
  return \@urls;
}

$valid = 1;

1;