#!/usr/bin/perl
use strict;
use warnings;
use HTML::Template::Compiled;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);
$CGI::DISABLE_UPLOADS = 1;
my $auswahl = param('dateien');
my $dateiname;
my $dir = ".";
opendir(DIR, "$dir") or die("Fehler beim Öffnen: $!");
my @dateien = grep /\.dat$/, readdir(DIR);
closedir(DIR) or die("Fehler beim Schließen: $!");
print CGI::header();
my $t = HTML::Template::Compiled->new( filehandle => *DATA);
$t->param(dateien => \@dateien, auswahl => $auswahl);
print $t->output;
__DATA__
Test