Select Code to Download

#!perl -slw
use strict;
...
            '-command' => sub{ kill 9, $pid })->pack();

$mw->MainLoop;