#!perl

use strict;
use warnings;
use Tk;
use Perl6::Say;
use Data::Dumper qw/Dumper/;

my $mw = tkinit();

my $f = $mw->Frame()->pack();
my $e1 = $f->Entry()->pack();
my $e2 = $f->Entry()->pack();
my $b = $f->Button( -text => 'bla', -command => sub{
    say Dumper $f->children();
})->pack();

$mw->MainLoop();