$ uname -a
CYGWIN_NT-10.0-19044 titan 3.3.6-341.x86_64 2022-09-05 11:15 UTC x86_64 Cygwin

##</code><code>##

ken@titan /cygdrive/c/Users/ken/tmp
$ ./pm_11147080_tk_mem.pl

##</code><code>##

Microsoft Windows [Version 10.0.19044.2075]
(c) Microsoft Corporation. All rights reserved.

C:\Users\ken\tmp>perl -v

This is perl 5, version 26, subversion 3 (v5.26.3) built for MSWin32-x64-multi-thread
...

C:\Users\ken\tmp>perl -E "use Tk; say $Tk::VERSION"
804.034

##</code><code>##

C:\Users\ken\tmp>perl pm_11147080_tk_mem.pl

C:\Users\ken\tmp>perl pm_11147080_tk_mem.pl
Free to wrong pool 25e3ed0 not 10e38400 at pm_11147080_tk_mem.pl line 43.

C:\Users\ken\tmp>perl pm_11147080_tk_mem.pl
Free to wrong pool 25c3ed0 not 2ee60830 at pm_11147080_tk_mem.pl line 43.

##</code><code>##

$MAIN_WINDOW->update();