Help for this page

Select Code to Download


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