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)=split(/\|/,$c);

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

      $index = int(rand($#imgs+1));
      $img  = $imgs[$index];
      $link = $urls[$index];

         print qq|Set-Cookie: URL=$link\n|;
         print qq|Location:   $img\n\n|;

  }