Select Code to Download

my $red;
my $green;
...
my $green_frame = $variable_frame->Label(-textvariable => \$green)->pa
+ck();
my $blue_frame = $variable_frame->Label(-textvariable => \$blue)->pack
+();
$variable_frame->Label(-text =>"------")->pack();

$red_frame->update;
$greeen_frame->update;
$blue_frame->update;