Help for this page

Select Code to Download

Select or download this

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