$bot_f->Button(-text => "Print value",
        -command => sub {
            print "The month is $month\n";
            $top->afterIdle(sub{
            $top_f->destroy if Tk::Exists($top_f);
            });
        }, -relief => "raised")->pack;