opendir Tdir, "/var/www/campbell/campbell.edu/www/content/2/";
while(my $d = readdir(Tdir)){
print "<li>$d\n";
}close Tdir;