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;

use strict;
use CGI qw/:standard/;

my $allhtml = [qw/butter garden greek greekhoney maple natural raspberry strawberry lemons rhubarb vanilla/];
my $path = "/home/fba/rachelsorganic.co.uk/_html/index/index.";

open (FILE, ($path . $allhtml->[rand @$allhtml] . ".html")) or die $!;
print while <FILE>;
close FILE;

my @files = glob '/home/fba/rachelsorganic.co.uk/_html/index/index.*.html';

{ local $/;
open FILE, '<' . $files[rand @files] or die $!;
print while <FILE>;
close FILE;
}

open(FILE, ... ) or die $!:
print while sysread(FILE, $_, 8192);
close FILE;