Is there a quick way to delete non-empty directories in perl or do I have to recursively have to delete all the files and then do a recursive unlink of directories by using file::find a couple of times?
I could always shell out to do it but that defeats the purpose of platform independence.