Select Code to Download

$left1->Label(-text => $_)->pack() for '', qw{Day Week Month Year};

my @widget_order = qw{blank abc xyz};
my %widget_data = (
...
              $widget_data{$widget}{opts},
          )->geo_mgr(@geo_mgr_opts);
}