Bevor wir jetzt weitermachen sollten wir erst mal kennen lernen wie wir die Steuerelemente dort hinstellen wo wir sie auch wollen und nicht dorthin wo sie durch die default-Einstellung der Methoden eben hinkommen............

 #! /usr/bin/perl -w

 use strict;
use Tk;

my $main = MainWindow->new;
$main->Label(-text => 'Bitte eingabe machen :')
                ->pack(-side => 'top',  #oben
                       -anchor => 'w'); #w=west=links

$main->Button(-text => 'OK',
              -background => 'yellow' ,
              -command => \&new_window)
                 ->pack(-side => 'right'); #gelber Button rechts

my $eingabe= $main->Entry( -background => 'white')
                             ->pack(-side => 'left');

MainLoop;

sub new_window {
   my $top1 = $main->Toplevel;
   $top1->Label(-text => "Sie gaben ein : " . $eingabe->get )
                  ->pack(-side => 'top');

   $top1->Button(-text => 'close',
    -command => [ $top1 => 'destroy' ] )
                  ->pack(-side => 'bottom', -fill => 'both');

   $eingabe->delete(0,100);
   }

So siehts aus :

    

Ich habe den Quellcode wohl ausreichend kommentiert und lasse diesen mal nach der Devise probieren und anschauen stehen.  Ich rate Ihnen dazu die jeweilige man-Pages der einzelnen Steuerelemente durchzulesen und damit an diesem Programm herumzuspielen nach dem berühmten Trial and Error - Verfahren. Zur Übersicht hier schnell alle Optionen die sie für pack verwenden können..................