run the Tk demo program "widget" check out the examples, also see

• Tk::grid
• Tk::pack
• Perl::Tk, a question about pack geometry manager

perl -MTk -e " $mw = tkinit; $mw->Text->pack; $mw->Button->pack( qw( -
+anchor se  ) ); MainLoop"
[download]