#!perl -w use strict; print "Content-type: text/html\n\n"; #Extensions that can be viewed. (Seperated with vertical lines.) my $ext='pl|css|html|htm|shtm|shtml'; my $request=$ENV{'QUERY_STRING'}; $request=~/([-\w_]+\.($ext))/g; my $file=$1; open(SCRIPT,"<$file"); flock(SCRIPT,1); my @code=