use Tk;
use strict;

my $mw	= tkinit ();

$mw-> Button (-text => 'Focus-Button')-> pack ();

my $text = $mw-> Text ()-> pack;

$text-> insert ('1.0', "texttexttexttextetxt\ntexttexttexttextetxt\ntexttexttexttextetxt");

$text-> insert ('end', "\n\nMarkieren und danach Strg+Tab drücken");

Tk::MainLoop ();