Select Code to Download

my $t1 = $left1->Label(-text => ' ',
                       -background => 'cyan')->pack();
...

my $t1 = $left1->Label(-text => ' Year ',
                       -background => 'cyan')->pack();

 
with ($left1) {
    default -background => 'cyan';
...
    Label(-text => ' Month ');
    Label(-text => ' Year ');
}