Here is a subroutine that I believe is attributed to Christian Murphy (r1938c@email.sps.mot.com). The only thing I modified was to change the yyyy_mm_dd format to yyyy/mm/dd. 
use strict;

my $datestr = yyyymmdd(time);
print "$datestr\n";

sub yyyymmdd {
    #-----------------------------------------------------------------
+------
    # yyyymmdd -- given a clocktime (in seconds since the epoch), retu
+rn the
    #       corresponding date in the format "yyyy/mm/dd"
    #
    # usage: $date = &yyyymmdd($clocktime);
    #-----------------------------------------------------------------
+------
    my ($clocktime) = @_;
    my ($sec, $min, $hour, $mday, $mon, $year, $wday) =
           localtime($clocktime);
    $mon ++;
    ($year += 1900) unless (length($year) == 4);
    ($mon = "0$mon") unless (length($mon) == 2);
    ($mday = "0$mday") unless (length($mday) == 2);
    return $year . "/" . $mon . "/" . $mday;
}

[download]

--Jim

Update: I realize this isn't the format you're using, but you should be able to modify it for your purposes. I also eliminated some code that didn't pertain to your question.

In reply to Re: Compare MM/DD/YYYY to current date by jlongino
in thread Compare MM/DD/YYYY to current date by rockstar1492

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.