#!/usr/bin/perl -w
# -*- mode: perl; Encoding: utf-8; coding: utf-8 -*-
# Last updated: <2024/06/09 21:38:48 +0900>

use strict;
use warnings;

my ($s);

print sprintf("%0.4d%0.2d%02.d", 2024, 6, 8), "\n";

print sprintf("%04d%02d%02d", 2024, 6, 8), "\n";