Select Code to Download

use strict;
use warnings;
...
sub pressExitButton {
  $mw->destroy();
}

package MyGui;
use strict;
...
1;
package main;
MyGui->new()->run();