#/usr/bin/perl

use Tk;

#sub msgb;

$mw = MainWindow->new;

$mw->Button(-text => "hello", -command => sub {print "hello!\n";})->pack;

my $test = 0;

if ($test == 0) {

	my $answer = $mw->messageBox(-icon => 'question', -message => 'Hello World!', 
	-title => 'My title', -type => 'Ok');
}

MainLoop;