perl -e 'use POSIX 'strftime'; $_n_days_ago = strftime("%d", gmtime( time-$DAY_AGO*86400 )); print "$_n_days_ago\n"'