Sorry for the long delay before replying. This is possibly what you want:

use strict;
use warnings;
use Tk;

# Main Window
my $mw = new MainWindow;

#GUI Building Area
my $frm_name = $mw -> Frame()->pack();
my $lab = $frm_name -> Label(-text=>"Name:")->pack(-side=>'left');
my $ent = $frm_name -> Entry(-text=>'Some text')->pack();

#Text Area
my $textarea = $mw -> Frame()->pack();
my $txt = $textarea -> Text(-width=>40, -height=>10)->pack();

MainLoop();
[download]