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(-textvariable=>\$entry_var)->pack();

$ent->bind('<Return>'=> \&subbie_1);


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


MainLoop();




sub subbie_1
{
	$txt->insert('end', "$entry_var\n");
}