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

my $top_directory=shift @ARGV;
my $handle=shift @ARGV;

my $count=0;
my $dir_handle=0;



opendirectory($top_directory,$handle);
print "$count\n";



sub opendirectory{

	my $directory=shift(@_);
	my $handle=shift(@_);

print "$directory\n";
print "$handle\n";

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

	while ($_ =readdir("$handle")){
		next if $_ eq "." or $_ eq "..";
		print "$directory/$_\n";
		if (-d $_){
			$handle=$_;
			print "found a directory\n";
			++$count;
			$dir_handle++;
			opendirectory($_,$handle);
			#$dir_handle--;	
			#opendir IN, $_ or die "Can't open directory $_: $!\n";
			#while ($_=readdir(IN)){
			#	next if $_ eq "." or $_ eq "..";
			#	print "$_\n";	
									
			#	}	

			#++$dir_handle;
			}
	}

closedir "$dir_handle";

}