use warnings;
use strict;
use v5.38;
use Tkx qw(MainLoop combobox grid);
use Tkx::ROText;
...
my $text = Tkx::tk__text(".text",);
my $text1 = $mw->new_tkx_ROText();

##</code><code>##

tie *STDOUT, ref $text, $text;
tie *STDOUT, 'Tkx::ROText', $text1;

Can't locate object method "TIEHANDLE" via package "main" at GCGuiQuery.pl line 31.