Select Code to Download

# c:/pel/bin
use strict;
...
}
$tlist->pack(-expand=>'yes', -fill=>'both');    
Tk::MainLoop;