perl -MTime::Local -e " print scalar localtime (timelocal(0, 0, 0, @{[localtime(time - $ARGV[0] * 86400)]}[3..8]))" 30 #output Thu Mar 20 00:00:00 2014