my $button = $mw -> Button(-text => "Quit", 
        -command => sub { exit })
    -> pack();