#!C:\Perl\bin\perl.exe use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard); #Upload on lextutor seems to need this ###### NOTE ###### ## THIS IS A GENERIC FOLDER-PERMISSIONS AVOIDER#### print "Content-type: text/html\n\n"; print "FOLDER ACCESS (THESIS)"; print "

Thesis Quizzes

"; $dir = 'c:\inetpub/wwwroot/cv/webthesis/quizzes_2k' ; print "
"; opendir (DIR, "$dir/"); @FILES = sort grep(/\.txt/,readdir(DIR)); #@FILES = sort (readdir(DIR)); foreach (@FILES) { print ""; } closedir (DIR); print "
$_ 
"; print "

Close this page to get back to lextutor/cv"; #Got it! Thanks CGI City print <<"EOF"; EOF print "";