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

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