#!/usr/bin/perl -w

use lib 'c:/Projekte/Eventmanager/mysql/module';
use CGI::Carp "fatalsToBrowser"; 
use CGI qw(:all);
use strict;
use warnings;
use File::Find;

my @directories = qw|'c:/Projekte/Eventmanager/mysql'|;
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;