# IUP::MessageDlg example
use strict;
use warnings;
use IUP ':all';
my $dlg = IUP::MessageDlg->new( DIALOGTYPE=>"ERROR", TITLE=>"IUP::MessageDlg - Error!", VALUE=>"This is an error message" );
$dlg->Popup();
$dlg->Destroy();