perl -we 'use File::Find; finddepth(sub { 1 < -M() and -d() ? rmdir : unlink; }, "/tmp")'