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.