stat($datei);
                   print "Lesbar\n" if -r _;
                   print "Beschreibbar\n" if -w _;
                   print "Ausfuehrbar\n" if -x _;
                   print "Setuid\n" if -u _;
                   print "Setgid\n" if -g _;
                   print "Sticky\n" if -k _;
                   print "Wahrscheinlich Text\n" if -T _;
                   print "Wahrscheinlich binaer\n" if -B _;