in reply to rm old directory

In the shell with find (1) and rm (1), in perl with File::Find, File::Path::rmtree and the file test operators.