sub process_item 
{ 
  # Einträge "." und ".." in Unterverzeichnissen überspringen! 
  next if $_ =~ /^\.\.?$/; 

  # prüfen, ob $_ auf ein Verzeichnis verweist 
  if (-d $_) 
  { 
    # Aus dem gesamten Pfad werden führende Punkte "../" entfernt 
    $var = $File::Find::name; 
    $var =~ s/^\.\.?\///; 

    # Verzeichnisname nebst Pfad in @dirs ablegen 
    push (@dirs, $var); 
  } 
}