my $Tdir_qfn = "/var/www/campbell/campbell.edu/www/content/2/";
opendir(my $Tdir_dh, $Tdir_qfn)
   or die("Can't read dir \"$Tdir_qfn\": $!\n");

while (defined( my $f = readdir($Tdir_dh) )) {
   print "<li>$f\n";
}

closedir($Tdir_dh);