Select Code to Download

    $bot_f->Button(-text => "Print value",
        -command => sub {
...
            $top_f->destroy if Tk::Exists($top_f);
            });
        }, -relief => "raised")->pack;