#!/usr/bin/perl -w

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


my @directorie = ("Z:\\");
my $data_file = 'D:\\test_ordner4.txt';
my $i = 0;

find(\&wanted, @directorie);
    

sub wanted 
{
            open( FILE, ">>", $data_file ) or die $!;   
            print $i . " $File::Find::dir\n";
            $i = $i + 1;
            print FILE "$File::Find::dir\n";
            close(FILE);
}