Select Code to Download

#!/usr/bin/perl -w

...
[Output]
Today's date:  2013-06-07
30 days ago:  2013-05-08

$date[3] -= 4 * 7;
...
my $month_ago_3  = strftime('%Y-%m-%d', localtime(time - 4 * 7 * 86400
+));