you are missing a bunch of variable names. Every time you see my there should be a variable name following. For example:
in reply to Dynamic Directory Index help
should look like this line does
add the following to the top of your script and you will get more helpful error messages
my @dirs=readdir PRJD;
check out this book (Learning Perl) by our own merlyn for a good place to start with perl.