#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11111879
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->bind('<Key-Return>',\&verwijs);
$entry->focus;

MainLoop;

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