perl -MFile::Find -e "find(sub{@s=stat;unlink if (time-$s[9])>60*60*48 && -f},'.')";