Help for this page

Select Code to Download

Select or download this

#!perl -slw

...
      '-command' => sub {$mw->destroy})->pack();

$mw->MainLoop;