$parent -> Button (-text => 'Quit',
                       -command => sub {Tk::exit}) -> pack;