# IUP->GetColor example
#
# Creates a predefined color selection dialog which returns the
# selected color in the RGB format.
use strict;
use warnings;
use IUP ':all';
my ($r, $g, $b) = IUP->GetColor(100, 100, 255, 255, 255);
IUP->Message("COLOR: r=$r g=$g b=$b") if $r;