#!/usr/bin/perl -w
# Perl Random Banner
# Terrence Ma
# 08/27/2000

# use lib
use strict;
use CGI::Pretty;

# init variables
my $cgi = new CGI;
my ($imagenum, $imagename, $imagesize, $imagedata);

# generate random name
srand( time() ^ ($$ + ($$ << 15)) );
$imagenum = int(rand 6) + 1;
$imagename = "titanic0" . $imagenum . ".gif";

# generate image data
open (IMAGE, "<$imagename");

$imagesize = -s $imagename;
read IMAGE, $imagedata, $imagesize;

close IMAGE;

# print image data
print $cgi->header(-type=>"image/gif"), $imagedata;

exit(0);