my ($sec, $min, $hour, $mday, $mon, $year) = (localtime($time))[0..5];