Select Code to Download

my $hlist = $mw->Scrolled(qw/HList
    -columns 3
    -width 70
    -command main::launch_win/)->pack(qw/-expand yes -fill both/);