perl -e "print scalar localtime (time - $ARGV[0] * 86400)" 30

#output:
Wed Mar 19 12:34:19 2014