use Tk;

$main = new MainWindow ();

$rgb = $main->chooseColor( -initialcolor => "#dfdfdf", -title => "Choose color");

MainLoop;