#!/usr/bin/perl

use strict;
use warnings;

use POSIX ();

my @format = qw( a A b B c C d D e Ec EC Ex EX EY Ey F G g h H I j k l m M n Od Oe OH OI Om OM OS Ou OU OV Ow Oy p P r R s S t T u U V w W x X y Y z Z );

my @t = localtime;

my $modifier = defined $ARGV[0] ? $ARGV[0] : '';

foreach my $f (@format) {
    printf "%-2s => '%s',\n", $f, POSIX::strftime("%$modifier$f", @t);
};