my ($sec, $min, $hour) = localtime;