linux remove large number of files

C++
cd yourdirectory
perl -e 'for(<*>){((stat)[9]<(unlink))}'
Source

Also in C++: