in reply to TK mainwindow

Problem solved as follows

use Tk;
my $mw = new MainWindow;
$mw->withdraw();
my $response = $mw->messageBox(-icon => 'info', -message => "Testing" 
+, -title => "Perlmonks" , -type => 'ok');

[download]

Thanks GrandFather for pointing the withdraw function.

--Lakshmanan G.

Your Attempt May Fail, But Never Fail To Make An Attempt

In Section Seekers of Perl Wisdom