Help for this page

Select Code to Download


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