#!/usr/bin/perl
# Run me with LC_TIME=cs_CZ.UTF-8

use v5.30;
use utf8;
use locale;

binmode STDOUT, ':utf8';

use POSIX qw(strftime);
say strftime("%B", localtime);

use Time::Piece;
Time::Piece->use_locale;
say localtime->strftime("%B");