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

June 07 BNL family lists:

"; # First elimination of need for refresh $dir = "c:/inetpub/wwwroot/vp/bnl/display_lists" ; opendir (DIR, "$dir/"); @FILES = grep(/.txt/,readdir(DIR)); foreach (@FILES) { print "$_
"; } closedir (DIR); print "

Use BACK button to return to this page; close this page to get back to VP-BNL"; #Got it! Thanks CGI City print <<"EOF"; EOF print "";