my ="/usr/local/apache/htdocs/projects/"; 
my ="http://mattwork.potsdam.edu/projects/"; 

##</code><code>##

my @dirs=readdir PRJD; 

##</code><code>##

 
#!/usr/bin/perl 
use warnings 
use strict