use strict;
use warnings;
use File::Find;

my @directories = qw|/home/tom/Eventmanager/mysql/bilder/smilies|;
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;