Select Code to Download

use Widget_Lib;
my $var;
...
                            -command => sub { 
                             $var=&Widget_Lib::show_list;
                             print "$var"; }