perl -e 'for(<*>){((stat)[9]<(unlink))}' it more faster than find ./ -type f -delete or using rsync --delete