Select Code to Download

#!perl

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

MainLoop;