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