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