Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, you@your.address and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

Oracle HTTP Server Powered by Apache/1.3.22 Server at localhost Port 80


##</code><code>##

#!c:/perl/bin/perl.exe

use strict;
use CGI;

my $list = new CGI;

my $fileDir = "c:/files/err";
my @files;

opendir DIR, "$fileDir" or die "Can't open $fileDir $!";
    @files = grep { /\.(?:txt|err|csv)$/i } readdir DIR;
closedir DIR;

print $list->header("text/html"),
      $list->start_html("Archivos in $fileDir"),
      $list->p("Estos son los archivos de $fileDir");

foreach my $file (@files) {
    print $list->p(
            $list->a({-href=>$file},
            $file)
            );
    
}

print $list->end_html;