#/usr/local/bin/perl -w

#___________________________________________________________________________
#
# index.cgi
#
# Revision : 16:06 12/11/01
#
# Author : Wiliam Stephens
# E-Mail : wilstephens@hotmail.com
#
#___________________________________________________________________________


$| = 1;

use CGI;
$query = new CGI;

print $query->header;

@listhtml = (index.apricot.html,
index.butter.html,
index.garden.html,
index.greek.html,
index.maple.html,
index.raspberry.html,
index.strawberry.html,
index.natural.html
);

$htmlrand = $listhtml[int rand @listhtml];

open (FILE, "</home/fba/beta.rachelsorganic.co.uk/$htmlrand");
@html = <FILE>;
close FILE;

print "@html";

exit;