#!/usr/bin/perl

use CGI::Carp qw/fatalsToBrowser/;
use CGI qw(:all);
use strict;
use warnings;
use File::Find;

my @directories = ("D:\\Eigene Dateien\\bat");
my @dateien   = ();

print "Content-type: text/html\n\n";
find(sub { push(@dateien,$_) } , @directories);
# mach was mit den Dateien
print scalar(@dateien)," Dateien gefunden!";
exit;