Select Code to Download

use warnings;
use strict;
...
$mw ->BrowseEntry(-label => 'Package', -choices=> \@package_list, -var
+iable => \$package_st, -browsecmd =>\&getselect_package, -font => "co
+urier 11 bold" ) ->place(-x=>275,-y=>120); 
 
MainLoop;