#!/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