perl -le 'sub f{gmtime$_*86400}$_+=30while($_+=9+7*(($x=(f$_-=(f)[3]-1)[6])>2)-$x)*86400<time;print~~f'