#!/usr/bin/perl -w

use strict;

my @banner = (
'<img src="/image1.gif" border=0 width=500 height=100>',
'<img src="/image1.gif" border=0 width=500 height=100>',
'<img src="/image1.gif" border=0 width=500 height=100>',
'<img src="/image1.gif" border=0 width=500 height=100>',
'<img src="/image1.gif" border=0 width=500 height=100>');

# seed random generator and select an image from array
srand (time()^($$+($$<<15)));
my $image = int rand @banner;

# print our header and random image link for SSI
print "Content-type: text/html\n\n";
print $banner[$image];

exit;