<%init> my @files; opendir(my $dh, $ENV{CONTEXT_DOCUMENT_ROOT}); while (readdir $dh) { next if !-f "$ENV{CONTEXT_DOCUMENT_ROOT}/$_" or /^\./; push @files, $_; } return (sort @files);