use strict;
use warnings;


use Tk;

my $mw = MainWindow->new();

my $long_text = <<EOT;
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque dictum tempor augue. Sed id pede. Suspendisse a erat a risus tincidunt rhoncus. Integer eget risus. Nulla nunc odio, viverra eget, consectetuer non, mollis at, felis. In hac habitasse platea dictumst. Nulla accumsan volutpat eros. Vivamus convallis, eros ut convallis facilisis, justo ipsum convallis orci, vehicula laoreet purus eros eget ante. In tempor. Proin varius placerat nisl.

Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos hymenaeos. Aenean pretium augue ac nulla. Praesent ante risus, iaculis et, malesuada a, luctus in, orci. Sed erat odio, auctor sed, molestie vel, volutpat at, elit. Phasellus fermentum ultricies est. Aenean interdum elit sit amet est. Donec luctus lacus a turpis. Sed et risus. Fusce metus. Pellentesque lorem dolor, volutpat in, congue id, luctus et, magna. Nullam congue sagittis orci. Pellentesque nec metus. Nulla nulla.

EOT

my $l = $mw->Label( 
    -text => $long_text,
    -wraplength => 250,
)->pack( 
    -fill => 'both', 
    -expand => 1,
);

$l->bind( '<Configure>', => [ \&ResizeMe, Ev('w') ] );


sub ResizeMe {
    my $l = shift;
    my $w = shift;

    # Amazingly, this does not lead to infinite recursion.
    $l->configure( -wraplength => $w );
}

MainLoop;