How do I delete a directory without emptying it first?

[Adam]

On an NT machine I managed to do it with:

`rd /s /q "$_"` for grep {-d} glob '*';

(That deletes all the sub directories (and their contents) in the current dir.) But I was wondering if there is a "Perl" way.

Originally posted as a Categorized Question.