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

my @directories = qw|/Eventmanager/mysql/bilder/smilies|;
print "Content-type: text/html\n\n";               
find(sub {print $_,"<br />" },@directories);
print @directories;
exit;