#!/usr/bin/perl

while (<>)
{
	$filename = $_;
	
	print "*** $filename\n";
	stat ($filename);
	print "lesbar\n" 	if -r _;
	print "schreibbar\n" 	if -w _;
	print "ausführbar\n" 	if -x _;
	print "setuid\n" 	if -u _;
	print "setgid\n" 	if -g _;
	print "sticky\n" 	if -s _;
	print "text\n" 		if -T _;
	print "binär\n" 	if -B _;
}