Fast delete recursively

fast_rm.sh

#!/bin/bash

ROOT=$1

for dir in $(find $ROOT* -maxdepth 5 -type d | sort -z); do
        echo "Deleting $dir"
        cd $dir
        perl -e 'for(<*>){((stat)[9]<(unlink))}'
        cd ..
        rm -r $dir
done