my $Now = strftime('%Y%m%d', localtime)

##</code><code>##

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