Add recursive rmdir example per issue #852

doc/Type/IO/Path.pod6

@@ -294,6 +294,20 @@ Returns C<True> on success.  Throws an exception of type
 L<X::IO::Rmdir> if the directory cannot be removed (e.g.
 the directory is not empty, or the path is not a directory).
 
+Since this only works on an empty directory, to removIhe a directory and its
+contents you will have to do something more complex.
+
+    # When we have a directory first recurse, then remove it
+    multi sub rm-all(IO::Path $path where :d) {
+        $path.dir.map({ rm-all($^p) });
+        rmdir($path)
+    }
+
+    # Otherwise just remove the thing directly
+    multi sub rm-all(IO::Path $path) { $path.unlink }
+
+See also L<rmtree in File::Directory::Tree|https://github.com/labster/p6-file-directory-tree>.
+
 =head2 routine chmod
 
     sub    chmod($mode, *@filenames --> List)