use strict;

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

sub yyyymmdd {
    #-----------------------------------------------------------------------
    # yyyymmdd -- given a clocktime (in seconds since the epoch), return 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;
}