Select Code to Download

my $day_menu = $date_frame->Scrolled("Optionmenu",-scrollbars => "e",
...
        -variable => \$day_number,
        -options => [(1..$days{$month})]
)->pack(-side => "left", );