($sec, $min, ...) = (localtime())[0..5];
$Now = sprintf('%4d%2d%2d', $sec, $min...);