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

my $main = MainWindow->new(-title => 'Focus Test');

my $first = $main->Entry(-text => \1);
my $second = $main->Entry(-text => \2);
my $third = $main->Entry(-text => \3);

$third->pack(-side => 'left');
$second->pack(-side => 'left');
$first->pack(-side => 'left');

MainLoop;