tie(*STDERR, 'Tk::Text', $text); 
tie(*STDOUT, 'Tk::Text', $text); 
$SIG{'__WARN__'} = sub { print STDERR @_ }; 

##</code><code>##

use Tie::STDERR \$append_to_scalar;