$ uname -a
CYGWIN_NT-10.0-19045 titan 3.4.7-1.x86_64 2023-06-16 14:04 UTC x86_64 Cygwin

##</code><code>##

$ cat /home/ken/tmp/pm_11153782_unicode/Dummy_Vertica.pm
package Dummy_Vertica;

use v5.36;
use utf8;

sub test_wide_character_print {
    say 'SLAP example:';
    print "SLAPŘ\n";
    say 'IMP example:';
    print "\N{IMP}\n";
    return;
}

1;

##</code><code>##

$ cat /home/ken/tmp/pm_11153782_unicode/test_1.pl
#!/usr/bin/env perl

use v5.36;

BEGIN { say "Perl version: $^V"; }

use lib '/home/ken/tmp/pm_11153782_unicode';
use Dummy_Vertica;

Dummy_Vertica::test_wide_character_print();

##</code><code>##

$ cat /home/ken/tmp/pm_11153782_unicode/test_2.pl
#!/usr/bin/env perl

use v5.36;

use open OUT => qw{:encoding(UTF-8) :std};

BEGIN { say "Perl version: $^V"; }

use lib '/home/ken/tmp/pm_11153782_unicode';
use Dummy_Vertica;

Dummy_Vertica::test_wide_character_print();