perl -MData::Dumper -le "print [ localtime(time - 60 * 60 * 24 * 7) ]->[-1]" 0