#!/usr/bin/perl

use English;
require Tk;
use Tk;

my $Version = "1.0";

my $main = MainWindow->new();
$main->minsize(qw(250 50));
$main->title("New Message");
$main->configure(-background=>'white');

my $top = $main->Frame(-background=>'white',)->pack(-side=>'top',-fill=>'x');

my $left1 = $top->Frame(-background=>'white',)->pack(-side=>'left',-pady=>9,-padx=>8);

my $t1 = $left1->Label(-text=>'Message From micro500:',-background=>'white')->pack();
my $t2 = $left1->Label(-text=>'<micro500> HELLO!!!',-background=>'white')->pack();
my $t3 = $left1->Label(-text=>'Sent Today',-background=>'white')->pack();

MainLoop();