use strict;
use warnings;
use Tk;

my $mw = new MainWindow;
my $text = $mw->Scrolled("Text", -scrollbars => 'e')->pack(-side=>'bottom',-anchor=>'w');
my $label = $mw->Label(-text=>"hello")->pack(-side=>'left',-anchor=>'n');
my $entry = $mw->Entry()->pack(-side=>'left',-anchor=>'n');
$mw->bind('<Key-Return>',\&verwijs);
$entry->focus;

MainLoop; 

sub verwijs{
my $who = $mw->focusCurrent;
print %$who;
}