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;
}