my @files = glob '/home/test/_html/index/index.*.html';
    open FILE, '<' . $files[rand @files] or die $!;
    print while <FILE>;
    close FILE;