use Tk;
use strict "vars";

my (@colours, $col_item, $red, $green, $blue, $mw);

$mw = MainWindow->new;

@colours = qw(black white red green blue);

foreach $col_item (@colours) {

($red, $green, $blue) = $mw->rgb($col_item);

print "\n     colour <$col_item> red <$red> green <$green> blue <$blue>\n";

$red = int(sqrt($red));
$green =int(sqrt($green));
$blue = int(sqrt($blue));

print "sqrt colour <$col_item> red <$red> green <$green> blue <$blue>\n";

}

MainLoop;