sub searchreq($) {
      my $page = 0 + shift;
      return HTTP::Request->new(POST =>
         "http://www.BrilliantPeople.com/jobsearch.asp",
         undef,
         # Search for Information Technologies stuff.
         "hdnOccupationSelectionCodes=".join(",",5118..5137)
         ."&txtKeywords="
         #."&numberperpage=100".
         #."&currentpage=" . $page
     );
   }