($tyear, $tmon, $tday) = unpack("a4a2a2", $today);