use strict;

use CGI;
my $query = CGI->new();

print $query->header();

my @allhtml = ('index.apricot.html',
'index.butter.html',
'index.garden.html',
'index.greek.html',
'index.greekhoney.html',
'index.maple.html',
'index.natural.html',
'index.raspberry.html',
'index.strawberry.html',
'index.lemons.html',
'index.rhubarb.html',
'index.vanilla.html'
);

my $randhtml = $allhtml[int rand @allhtml];

my $HTML;

{ local $/;
open (FILE,"</home/fba/rachelsorganic.co.uk/_html/index/$randhtml") or die $!;
$HTML = <FILE>;
close FILE;
}

print $HTML;