#!perl

use strict;
use warnings;
use utf8;
use Tk;

my $mw = Tk::MainWindow->new();

$mw->Label(
    -text => 'bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla',
)->pack(-fill => 'both', -expand => 1,);

$mw->MainLoop();