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