Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
use Tie::STDERR \$append_to_scalar;
```