my $red;
my $green;
my $blue;
my $mw = MainWindow->new;
$mw->title();
my $right_frame = $mw->Label->pack();
my $variable_frame = $right_frame->Label->pack();
my $red_frame = $variable_frame->Label(-textvariable =>\$red)->pack();
my $green_frame = $variable_frame->Label(-textvariable => \$green)->pack();
my $blue_frame = $variable_frame->Label(-textvariable => \$blue)->pack();
$variable_frame->Label(-text =>"------")->pack();