#!/usr/bin/perl 
use strict;
use warnings;
use Tk;

my $mw = MainWindow -> new;
my $result = messengerBox ('question', 'Hello World etc', 'PopUpBox', 'AbortRetryIgnore', 'Retry' );

print STDERR "$result\n";

MainLoop;

sub messengerBox
	{
		my $icon = $_[0];
		my $message = $_[1];
		my $title = $_[2];
		my $type = $_[3];
		my $default = $_[4];

		$message = '   Add the space here    ' . "$message";

		my $response = $mw->messageBox(-icon => $icon, -message => $message, -title => $title, -type => $type, -default => $default);
		return $response;
	}