use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $text = $mw->Label(-text => 'Bitte geben sie Ihren Namen ein: ',
                      )->pack();
                      
my $eingabe  = $mw->Entry()->pack();

my $msg = $mw->Label(-text => ' ',
                    )->pack();

my $button_1 = $mw->Button(-text => 'OK',
                            -command => \&doit,
                           )->pack(-fill =>'x');
                           
my $button_2 = $mw->Button(-text  => 'Ende',
                           -command => sub { exit },
                           )->pack(-fill => 'x');


MainLoop();

sub doit 
  {
  $msg->configure(-text => 'Hallo ' . $eingabe->get());
  $eingabe->delete(0, 'end');
  }