if(!open DAT, "ads.dat") {
    print "Error: cannot open data file!\n";
    exit 1;
  } else {
    @imgdata=<DAT>;
    close DAT;
    foreach $c (@imgdata) {
    ($id,$image,$url,$from,$to,$type,$numshow,$numclicks,$desc)=split(/\|/,$c);

      if ($type=~/^internal|partner$/) {
          push (@imgs,$image);
          push (@urls,$url);
        }
      }

      $img  = $imgs[int(rand($#imgs+1))];
      $link = $urls[int(rand($#urls+1))];
      print qq|Set-Cookie: URL=$link\n|;
      print qq|Location:   $img\n\n|;
   }
 }