C:\test>perl -e "$x = scalar localtime (int(time()/43200)*43200 - $ARGV[0] * 86400); substr($x,11,9,''); print $x" 30
Thu Mar 20 2014