#usr/local/bin/perl
#directory.plx

use Cwd 'abs_path';

opendir IN, "." or die "Can't find directory $dir: $!\n";

while ($_ = readdir(IN)){
	next if $_ eq "." or $_ eq "..";
	print abs_path($_), " " x (30-length($_));
 	print "d" if -d $_ ;
	print "r" if -r $_ ;
	print "w" if -w $_;
	print "x" if -x $_;
	print "o" if -o $_;
	print "\t\t";
	print -s if -r $_ and -f $_;
	print "\n";
}