1|/images/banners/internal/g.gif|http://www.g.com
2|/images/banners/internal/ad.gif|http://www.ad.com/privicard
3|/images/banners/promos/banner.gif|http://www.blah.com
4|/images/banners/promos/banner_o.gif|http://www.b.com


##</code><code>##


 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|;

  }