Select Code to Download

## most of original code omitted for space
## commented out eval
...
    -command => sub { exit }
)->pack();
&MainLoop;