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

my @directories = qw|/home /usr|;

find(sub {print $_,"\n" if /\.pl$/;},@directories);

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

my @directories = qw|/home /usr|;

find(\&do_something($File::Find::name),@directories);

sub do_something ($) {
  my $file = shift;
  print "$file wird geöffnet...\n";
  # $file zum lesen öffnen
  open FILE,'<',$file or die "Konnte $file nicht zum lesen öffnen: $!\n";
  # do something
  close FILE;
}

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

my @directories = qw|'http://127.0.0.2/'|;

find(sub {print $_,"\n" },@directories);
print "Content-type: text/html\n\n";      	        	
print @directories;
exit;

my @directories = qw|'/Eventmanager/mysql/bilder/smilies'|;

my @directories = qw|/Eventmanager/mysql/bilder/smilies|;

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;