Select Code to Download

my $wanted_style = $tree->entrycget($path_to_copy_style_from, q{-style
+});

use strict;
use warnings;
...
$frame_b->Button(-text => q{Exit}, -command => sub { exit })->pack;

MainLoop;