note Anonymous Monk <p> Sure it is, maybe :) <p> fail <strike> <c> [cpan://tkx tie], [metacpan://tkx tie], [google://site:perlmonks.org tkx tie stdout] </c> [cpan://tkx tie], [metacpan://tkx tie], [google://site:perlmonks.org tkx tie stdout] </strike> <p> fail again <strike> [href://?node_id=3989;BIT=tie%20;HIT=Tkx]... </strike> <p> use [mod://Tie::STDOUT] print => sub { $textvariable .= join ''. @_; } <br> use [mod://Tie::STDERR] print => sub { $textwidget->insert("end", join ''. @_ ); } <p> use constant STAPENDER => sub { $textwidget->insert_end( @_ ); }; <br> use [mod://Tie::STDOUT] print => STAPENDER; <br> use [mod://Tie::STDERR] print => STAPENDER; 1006826 1006826 5