Spieler+2007-11-07 15:17:23--

Hallo,
falls du so etwas meinst:
aus perldoc Tk::Text :

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11

 use Tk;
 use strict;

 my $mw = MainWindow->new;
 my $text = $mw->Text(qw/-width 40 -height 10/)->pack;

 tie *STDOUT, ref $text, $text;

 print "Hello Text World!\n";

 MainLoop;