#!/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);
}