my ($mday, $mon, $year) = localtime($mtime)[3,4,5];

##</code><code>##

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