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

my $top_directory=shift @ARGV;
my $count=0;
my $j=0;

opendirectory($top_directory);
print $j;


##############################
##############################
##   SUB_ROUTINE to look through directory

sub opendirectory{

$directory = shift(@_);
print "$directory\n";

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

while ($_ = readdir("$j")){
	next if $_ eq "." or $_ eq "..";
	print $_, " " x (30-length($_));
 	print "d" if -d $_ ;
	if (-d $_){
		++$j;	
		$count=$count+1;
		$dir_handle=$_;
		opendirectory($dir_handle) 
	}
	
	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";

}


}