for (readdir DIR) 
	{
	        next if /^\.{1,2}$/;
	        my $path = "$dir/$_";