#!/usr/bin/perl
use Tk;
$mw = new MainWindow;
$mw->chooseColor(-title => 'Farbe wählen');