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;