use strict;
use warnings;

use IUP ':all';

sub myMessage {
  my ($tit, $msg) = @_;
  my $dlg = IUP::Dialog->new( child=>IUP::Vbox->new(
			               child=>[
			                 IUP::Label->new(TITLE=>$msg, EXPAND=>"Yes"),
				         IUP::Button->new(TITLE=>"OK", PADDING=>"5x5", ACTION_CB=>sub{return IUP_CLOSE}),
			               ],
				       MARGIN=>"10x10", 
                                       GAP=>"10",
			               ALIGNMENT=>"ACENTER",
		              ), TITLE=>$tit );
  $dlg->Popup(10, 10);
  $dlg->Destroy();
}

my $tit = "Hi!";
my $msg = "This is Antonio's window";
myMessage($tit,$msg);