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

use strict;
use CGI;

my $list = new CGI;

my $fileDir = "./";
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;