system "cls";

use warnings;
use POSIX qw(strftime);
use File::Find;

$count = 0;

open FH , ">C:\\Perl\\skripte\\report.txt";
print FH "LFD-NUMMER \t GROESSE \t DATEINAME \n";
close FH;


@startDirs = qw(\\\\fileserver\\user01$);

open FH , ">>C:\\Perl\\skripte\\report.txt";

&File::Find::find (
  sub {
  
  
    if (-f $_) {
		$size = -s _;
		$datei = $File::Find::name;
		$datei =~ s/\//\\/g;
		

		
		$count = $count + 1;
		print "$count \t $size \t $datei \n";


		print FH "$count \t $size \t $datei \n";


		}

    }, @startDirs);
	
close FH;

#Can't opendir(\\fileserver\user01$/andre/Sicherungskopien/Sicherungskopie xxx
#estellvorlagen vom LW Techn. EK, Stand 21.10.2011/Rahmenvertrõge und Bestellvorl
#agen/_Bestellvorlagen/Unterlagen/test/Philips - Leuchtmittel/Energiekosten Berechnun
#g Vergleich T8 - ECO Leuchtmittel): No such file or directory
# at C:\Perl\Skripte\report.pl line 42
#Can't cd to ../.. from \\fileserver\user01$/andre/Sicherungskopien/Sicherungsk
#opie xxxestellvorlagen vom LW Techn. EK, Stand 21.10.2011/Rahmenvertrõge und Be
#stellvorlagen/_Bestellvorlagen/Unterlagen/test/Philips - Leuchtmittel/Energiekosten
#Berechnung Vergleich T8 - ECO Leuchtmittel at C:/Perl/lib/File/Find.pm line 983.