cd yourdirectory perl -e 'for(<*>){((stat)[9]<(unlink))}'
參考Efficiently delete large directory containing thousands of filesspa