#!/usr/bin/perl
use strict;
use Tk;

my $mw = MainWindow->new();
my $lb = $mw->Label(-font => '{Arial} 8 {underline}',
                    -text => 'Schöner unterstrichener Text',
                   )
             ->pack(-expand => '1',
                    -fill   => 'x',
                    -side   => 'top',
                   );
my $ok = $mw->Button(-text        => 'OK',
                     -command     => sub { $mw->destroy() },
                     -default     => 'active',
                     -padx        => 15,
                    )
              ->pack(-expand => '1',
                     -fill   => 'x',
                     -side   => 'bottom',
                    );

MainLoop();