#!/usr/bin/perl -w

use strict;
my ($main);

use Tk;			
$main = MainWindow->new();	


my ($greetings, $t);
$t = "Hello, world!";		
$greetings = $main->Label(
    -text=>$t,
    -fg=>"yellow",
    -bg=>"blue",
    -bd=>4,
    -relief=>"ridge"
);
$greetings->pack(-fill=>"both");

MainLoop();