Select Code to Download

use strict;
use warnings;
...
$mw->Button(-text => q{Exit}, -command => sub { exit })->pack;

MainLoop;