This blog gives different ways of deleting Big Directories and their relative times for deleting a directory with 500,000 files. The script using perl is reported to be fastest, which is given by
cd yourdirectory
perl -e 'for(<*>){((stat)[9]<(unlink))}'
This answer is also reported in StackExchange-Unix&Linux here. The current script can only delete files just one level under the directory. Can anyone provide an equivalent perl script that deletes all subdirectories and their contents recursively?