#!/usr/local/bin/perl use File::Basename; do 'cgi-hacks.pl'; &find_form_args('title|dir|match'); print < List Files

$title

EOF $path = dirname($ENV{HTTP_REFERER}); $path =~ m|http://[^/]+/[^/]+/[^/]+/(.*)|; opendir(PSDIR, "../$1/$dir"); @allfiles = grep(/$match/, readdir(PSDIR)); foreach $file (@allfiles) { print "

$file

\n\n"; } closedir(PSDIR); print < EOF