#!/usr/bin/perl
use Tk;
use strict;
use warnings;

my $mw = MainWindow->new( -bg => 'beige', );

my $l = $mw->Frame(
   -width       => 111,
   -height      => 333,
   -relief      => "raised",
   -borderwidth => 2,
   -bg          => '#EEE000',
 )->pack(
   -fill   => 'x',
   -side   => 'left',
   -anchor => 'n',
 );


my $r = $mw->Frame(
   -width       => 111,
   -height      => 333,
   -relief      => "raised",
   -borderwidth => 2,
   -bg          => '#F0F000',
 )->pack(
   -fill   => 'both',
   -side   => 'left',
   -anchor => 'n',
 );

my $r2 = $mw->Frame(
   -width       => 111,
   -height      => 333,
   -relief      => "raised",
   -borderwidth => 2,
   -bg          => '#F0F000',
 )->pack(
   -fill   => 'both',
   -side   => 'left',
   -anchor => 'n',
 );


for ( qw[Name: Version: Description: Date: ] ){
   
   $l->Label(
      -text    => $_,
      -justify => 'left',
      -anchor  => 'w',
    )->pack(

#-anchor => 'e', # if you don't fill
      -fill => 'x',
    );

   $r->Label(
      -text => $_,

#    -justify => 'right',
      -anchor => 'e',
    )->pack(
      -anchor => 'e',    # if you don't fill

      #-fill => 'x',
    );

   $r2->Label(
      -text    => $_,
      -justify => 'right',

#    -anchor => 'e',
    )->pack(

#-anchor => 'e', # if you don't fill
#-fill => 'x',
    );
}

#$top->Label(-text => "Enter the scroll frame")->pack;
MainLoop;