##

#!/usr/bin/perl -w

use strict;

my @banner = (
'',
'',
'',
'',
'');

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