my ($y,$m,$d,$h,$min,$s) = Today_and_Now([$gmt]);