in reply to changing the background of a Tk Label

Why the reference? 
my $test = $mw->Label(-textvariable => \$some_text,
                      -justify => 'center',
                      -foreground => 'black',
                      -background => $bg_colour,  # Removed backslash
                     );

[download]

Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

Don't fool yourself.

In Section Seekers of Perl Wisdom