acá está el código
Código:
#!usr/bin/perl
use strict;
my $dir = "mdi";
opendir (DATABASEDIR, "$dir");
my @files = readdir (DATABASEDIR);
closedir(DATABASEDIR);
shift @files;
shift @files;
print "content-type: text/html \n\n";
print "<table>";
foreach my $file (@files){
print"<tr><td>$file</td></tr>\n";
}
print "</table>";
exit(1);
Fijate que la primera línea tiene la ubicación del intérprete de perl, generalmente es esa, pero hay que ver que tu server no tenga otra...
mdi es el nombre de la carpeta que estoy listando...
Espero que te sirva, cualquier duda avisame...