#!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 (AAAL_07)"; print "

'Getting the word out' colloquium, AAAL 07 - Powerpoints

"; print "

Large-Scale Applications of Vocabulary Research

"; #$dir = '.' ; $dir = "c:/inetpub/wwwroot/cv/aaal_07/"; print "
"; opendir (DIR, "$dir/"); @FILES = sort grep(/.ppt/,readdir(DIR)); foreach (@FILES) { $fil= $_; my $size_in_k = (-s $fil); # Uses $_ by default print ""; } closedir (DIR); print "
$_
"; print "

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