my ($cmday, $cmon, $cyear) = localtime(time)[3,4,5];