With recent versions of File::Path you can do the following:

use File::Path 'remove_path';

remove_path("/path/of/dir", {keep_root => 1});
[download]

This will remove everything in the directory, but not delete /path/of/dir itself.