#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
use Tk::Text;

my $mw = tkinit;

my $text = $mw->Scrolled('Text' =>
             -scrollbars => 'ose',
             -background => 'white',
             -wrap => 'none')
          ->pack(-fill => 'both',
             -expand => 1);

$text -> focus();
$text -> bind('<Control-Tab>', sub { $text->focus();
                                                  $text->break;
                                          });

MainLoop;