#!/usr/bin/perl -w

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


my @directories = ("Z:\\");
# bei einfachen Anfühungszeichen (') braucht man das \ nicht zu Quoten
# außer es steht am Ende, da es ansonsten das ' entwertet
my $data_file = 'D:\test_ordner4.txt';
my $i = 0;

# eine etwas ausführlichere Fehlermeldung
open( my $fh, ">>", $data_file ) or die "ERROR open $data_file $!";
find(\&wanted, @directories);
close($fh);

sub wanted
{
  # Pfad holen:
  my $path=$File::Find::name;
  
  # ist es ein Verzeichnis?
  if(-d $path)
  {
    print "$i $path\n";
    print $fh "$path\n";

    # i im 1 erhöhen
    $i++;
  }
}