my @dir = glob($_[0]."*/");
	my $numofdir = @dir;
	for(my $j=0; $j<$#dir; $j++) {
		print "Reading sub directory: ".$dir[$j]."\n";
		directory($dir[$j]);
	}
	print "Finished on ".$_[0]."\n";