perl -e "for(glob '*'){next unless -f;@s=stat;unlink($_) if (time-$s[9])>60*60*48;}"