my ($y, $m, $d) = @{[localtime(time)]}[ 5, 4, 3 ];