title: How to print date in perl?
body: <p>I am printing today's date in cgi-perl using the following code:</p>
  
  <pre><code> my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
                localtime(time);
                $year = $year + 1900;
                $mon++;
  
                print "$mday/$mon/$year\n";
  </code></pre>
  
  <p>I need to print exactly the date exactly 7 days(1 week) before the current date.</p>