#!/usr/bin/perl -w

use strict;
my ($main);

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

use Tcl::Tk qw(:perlTk);	#=MBVK=#
my $interp = Tcl::Tk->new();	#=MBVK=#
$main = $interp->mainwindow();  #=MBVK=#

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];		#=NIS=#
    ($name) = /^(\S+)/;		#=MBVK=#
    $v = ($greetings->cget($name) or "<undef>");
    print "$name : $v\n";
}

# MainLoop();