Select Code to Download

use Tk;
$MW = MainWindow->new;
...
    -command => sub {print STDOUT "Launch Scripts\n"; exit;} );
$angel->pack;
MainLoop;