#!/usr/local/bin/perl -w
use Tk;
use Tk::widgets 'CrayolaCrayonColorPicker';
use strict;

my $mw = MainWindow->new;
my $cccp = $mw->CrayolaCrayonColorPicker(-title => 'Crayon Picker');

my $color = $cccp->Show;

if ( ref($color) =~ /ARRAY/ ) {
    my ($r, $g, $b) = @$color;
    print "r/g/b=$r/$g/$b!\n";
} else {
    print "no color selected, response=$color!\n";
}

MainLoop;