#!/usr/bin/perl
# banner_ad.cgi
# 1998-06-23, dsm for Mountain Digital, Inc.
#

open (IN, "banners.txt") or die "Can't open banners.txt: $!";

$r=1 + int(8 * rand(srand()));
$i=0;

while ($s=<IN>) {
    $i++;
    if ( $i == $r ) {
        print $s;
    }
}

close (IN);