my $colorChanger = sub {
    $red  = floor(5*rand());
    $green = floor(5*rand()+10);
    $blue = floor(5*rand()+20);
};
$colorChanger->(); ## Initizalizezazazabanana
$mw->repeat( 2000, $colorChanger );
MainLoop;