#!/usr/bin/perl -w

use strict;
my ($main);

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


my ($greetings);

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

foreach ($greetings->configure()) {
    my ($name, $v);
$name = $_->[0];		
    $v = ($greetings->cget($name) or "<undef>");
    print "$name : $v\n";
}

# MainLoop();