use Tk;
my $mw = MainWindow->new;
my @tags = qw(name version description date);
for my $row (0..3) {
  $mw->Label(-text => $tags[$row])->grid
    (
     -column => 0,
     -row => $row,
     -sticky => 'e',
    );
  $mw->Entry()->grid
    (
     -column => 1,
     -row => $row,
     -sticky => 'w',
    );
}

MainLoop;