Select Code to Download

my $TOP=Tk::MainWindow->new;
my $tp=$TOP->Toplevel;
...
  ...
 })
};

$tmb->configure(-menu=>'');