contenido de un directorio en web

[monoswim]

creaste una carpeta en el directorio en donde puseste el script que se llame mdi ?

Porque el script intenta abrir el directorio y al no encontrarlo pude generarte este error...

Deberías agregar esto

En la ínea de open hacer

opendir (DATABASEDIR, "$dir") || &error('abrir','directorio');

y antes del exit crear la función de error

Código:

sub error {

        print "content-type: text/html \n\n";
        print "Error: Cant $_[0] the $_[1]";
        print "<br><br>comunicate con Esteban Quintana";
        exit;
}

o sea que todo quedaría:

Código:

#!usr/bin/perl

use strict;

my $dir = "mdi";

opendir (DATABASEDIR, "$dir") || &error('abrir','directorio');
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>";

sub error {

        print "content-type: text/html \n\n";
        print "Error: Cant $_[0] the $_[1]";
        print "<br><br>comunicate con Esteban Quintana";
        exit;
}
exit(1);

Prueba con esto

Saludos