use strict;
use Tk;
use Tk::LabFrame;

my $mw = MainWindow->new;

my $lf = $mw->LabFrame(
   -labelside => 'acrosstop',
   -label => "My Form"
)->pack(qw/-padx 10 -pady 5/);

my $inFrame = $lf->Frame->
   pack(qw/-padx 10 -pady 5/);

$inFrame->Label(-text => "Field A: ")->grid(
   $inFrame->Entry(-width => 20
), -sticky => 'nw', -pady => 4);

$inFrame->Label(-text => "Field B: ")->grid(
   $inFrame->Scrolled('Text',
      -scrollbars => 'osoe',
      -width => 15,
      -height => 10
), -pady => 2, -sticky => 'nw');
      
$mw->Button(
   -text => "Submit",
   -command => \&Submit
)->pack(-pady => 4);

$mw->bind('<Key-Return>', \&Submit);

MainLoop;

sub Submit {
   print "form submitted\n";
}