find(\&bedingung, $verzeichniss);


sub bedingung {
  if ( $File::Find::name =~ /^$datei$/ )
   {
    push(@files, $_);
  }
  return;
}